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Primeros ,. 
pasos " 
To/vez todos, en olgdn momenta, hayamos 
sucumbido a la obsesibn de proteger nuestros 
programas contra curiosos y piratas, a imogen y 
semel'anza de/as rods renombradas casas de 
software comercia/. Aunque no existe la proteccidn 
perfecto, el Amstrad Basic es uno de los pocos que 
cuenta con comandos para permitirnoslo /acer, en 
mayor o menor medida, coma demuestra este 
articulo. 

$erie Oro 

Ser/e oro as ofrece, para los vacaciones, a/go muy 
es#ecial tres programas cortos, fdciles de tedear y 
que os hardn pasar horas muy entretenidas, para el 
¢¢relaio, de/as tardes de agosto. 

1 

Maquma , 

Estudiamos c6mo podemos desplazer un oh/eta 
desde odd/go m5quina, respondiendo afas 
pulsaciones en el teclado. 

Esta semana 44r. Joystick se presenta con una 
aut6ntico estrel/a de/software: ¢¢The musi( 
system, uno de/as programas rods potentes y 
senti/los de mane/at que hemos vista nunca. Te 
permitird rea/izar /o que quieras con e/ son/do de/ 
Amstrad. 

PCW;I; 
Estudiamos a rondo e/ nuevo ordenador de 
Amstrad, el PCW8512, intentondo responder a la 
pregunta de qu# pfantean de nuevo e interesante /as 
dos unidades de disco y la memoria extra. 

COOr, MSTRAD 3 



Anote este nombre 
Y 
recuerde esfa 

imagen 

SOFTWARE para 

• Si necesita uno de los meiore$ programas originales de gesti6n. 
-- Gesti6n inregrado, faduraci6n, stock, clientes. 
• Si desea mecanizar su negocio. 
-- Clfnicas veterinarias. 
- Vdeo clubs. 
-- Administraci6n de fincas.  
-- Distribuidoras de cine. 2,,.;, , ' ' 
• $i precisa un buen programa tcnlco. ,*,,  ,, ,// 
-- Cclculo de estructuras. _......._. " '- -------" -'.,,o,, .... 
- Mediciones y presupuestos. ..---'-"'- , 
- Clculo de vigas. I,...=  
- Fstructuras espacioles. - ,4 .c-,, 
-- Andomios. 
- Clculos en hormig6n. -.,-r' 
• $i Io que quiere es una apllcaci6n puntual. 
-- Declaraci6n de Io Renta. 
- Loter(o primiliva. 
-- Agenda multiuso. 
• Si busca que le hagan un programa a la medida. 

SOFTWARE NEW LINE, S. A. 
Gabinete de Informtica 
Zurbano, 4 - 28010 Madrid -- Telfs. 410 40 98 - 410 47 63 



CONTROLADORE$ 

DE DISCO 

Ib6rica, una 
joven empresa inform6tica dedicada 
a los ordenadores Amstrad, ha lan- 
zado al mercado espaol un contro- 
lador de disco para unidades de 5 
pulgadas y 1/4, es decir, el est6ndar 

del mercado, que respondan a la 
mec6nica SHUGART o TEACH (rn6s 
est6ndares, y rn6s <<gordos>> a0n). 
Estos en el caso del 664 y, supo- 
nemos, del 6128. 
Para el sufrido 464 hay que conec- 
tar el floppy de 5 1/4 a trav6s de la 
unidad de 3 pulgadas y el controla- 
dor. 
Enfa Ibrica vende el aparato a 
5.500 pesetas, y los puedes encon- 
trar en: 
Balandro 39.his, segundo b 
28042 Madrid 
Tel.: (91) 742 18 92 y 742 91 51 

OBSIDIAN DE 

ACE SOFTWARE 

Y 
a est6 disponible 
en el mercado el nuevo juego de 
ACE Software, OBSIDIAN. 
Con 41 nos adentraremos en una 
estaci6n espacial, OBSIDIAN, que se 
haya enclavada en un asteroide yen 
la cual corremos el peligro de pere- 
cer debido a que se dirige irremisi- 
blemente a un agujero negro, y aun- 
que la nave tiene un carnpo de gra- 
vedad de protecci6n, este no nos 
proteger6 a nosotros de la destruc- 
ci6n. Para poder salvar esta situa- 
ci6n debemos entrar en otro univer- 
so y buscar naves del rnisrno tipo que 
OBSIDIAN. 
Pero despots de haber Iogrado es- 
to, descubrimos que una extraa ra- 
diaci6n est6 destruyendo los dos sis- 
temas de energia de la nave. Como 
s61o tO en la nave eres Io suficiente 
valiente y h6bil para enfrentarte a 
este problema, sete ha designado 
para introducirte en la estaci6n, 
reactivar los sistemas de energla, ini- 
cializar los rnotores y volver a fijar el 
plan de vuelo. 
Juego entretenido y de habilidad 
distribuido por MICROBYTE. 

S. OPCIONES IrA Sinernbargo, ya pesardelgran . ! I 
nOrnero creciente de usuarios del 
programa PLACON, MICROMOU- 
,,, ..'. PROG SE no se ha dormido en los laureles 
obtenidos y contin0a trabajando so- , 
PL4CON bre su versi6n AMSTRAD. Los posee- 
dores de un AMSTRAD 6128 con una 
sola unidad de disco podrdn utilizar 
el programa PLACON para Ilevar su 

E reciente anuncio 
de actualizaci6n gratuita del rnanual 
a los usuarios registrados del progra- 
ma PLACON sobre microordenado- 
res AMSTRAD, hay que aadir otra 
buena noticia para los usuarios del 
programa de contabilidad editado 
por MICROMOUSE: la opci6n LIVA. 
Esfe prograrna opcional perrnife ob- 
tener el libro registro de facfuras emi- 
tidas y recibidas, exigido tras la im- 
plantaci6n del Impuesto sobre el Va- 
lor Aadido, y traspasa los datos 
contables al programa PLACON. 

contabilidad yen breve se encontra- 
r6 disponible la versi6n del progra- 
rna PLACON para gestorias. 
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ccPASE DE 
INTERRUPCIONES 

Continuando por el comino iniciado en nuestro 
anterior art[culo que nos situaba en el mundo de 

los instrucciones ON..., Ilegamos a .un. grupo de 
sentencias que va a inhibir o ehmnar la 

posibilidad de cortar la ejecuci6n de un programa 
pulsando dos veces la tecla ESC y despus, en el 

momento qu.e. nosotros queramos, poder volver a 
dsponer de esta facilidad. 

e recomendamos que 
antes de ejecutar cualquier programa de los 
que vamos a analizar, tenga la precauci6n de 
grabarlos en disco o cinta, ya que pudiera ocu- 
rrir que, al no poder detenerla, sea imposible 
despu6s hacerlo mediante la orden SAVE. 
La ejecuci6n de un programa escrito en Ba- 
sic, sobre el que no se hayan tomado medi- 
das especiales de protecci6n, puede detener- 
se pulsando una vez la tecla E$C e interrum- 
pirla definitivamente si presionamos de nue- 
vo dicha tecla una vez est6 parada. 
Escribamos un programa que no termine 
nunca de ejecutarse. Como muestra puede ser- 
virle ell que, aunque es bastante concreto, nos 
sirve perfectamente para ver sobre la pr6cti- 
ca lodo Io que le vamos a contar. 

Programa uno 

El Programa 1 no finaliza nunca. Siguiendo 
su ejecuci6n linealmente nos encontramos que 
en la linea 40 hay un salto incondicional (o sea, 
que se produce siempre, independientemen- 
te de que se cumpla o no una cierta condici6n) 
de vuelta a la linea 20. 

6 (;C,OHO AMSTRAD 

De esta manera se repite de nuevo el pro- 
ceso imprimi6ndose el texto especificado en la 
Iinea 30 para despu6s hater un salto atr6s y 
pasar a la linea 20. 
Si se pulsa una vez la tecla E$C, la ejecu- 
ci6n del programa se detiene y observar6 que 
en la pantalla aparece de nuevo el cursor de 
textos en una determinada posici6n. 

lh REM PROGRAMA 
20 Ci.S 
XO PRINT"NO TERMINO HUNCA" 
40 GOTO 20 

En qu6 momento aparece? Est6 claro que 
ser6 cuando el programa se detenga. Como 
el bude que estamos repitiendo continuamente 
es el comprendido entre las lineas 20 a 40, se- 
r6 despu6s de ejecutar cualquiera de 6stas, de- 
pendiendo del momento en el que pulsemos 
ESC. 
Asi por ejemplo, si estaba en la linea 20, la 
pantalla aparecer6 totalmente limpia, ya que 
se ejecuta por completo la orden CLS, y el cur- 
sor se situar6 en la primera posici6n de la li- 
nea superior. 
Pero si presionamos la tecla ESC cuando se 
est6 visualizando el mensaje (linea 30), en la 
pantalla se escribir6: 
NO TERMINO NUNCA 



completamente y el cursor quedar6 colocado 
en la primera columna de la segunda linea de 
texto, ya que despu6s de imprimir el mensaje 
salta de Ifnea y se coloca en el borde izquier- 
do. Y Io mismo ocurrir6 si detenemos el pro- 
grama durante la ejecuci6n de la linea 40. AI- 
guna dificultad. 
En cualquier caso podremos volver a poner 
en marcha el programa simplemente pulsan- 
do una linea distinta de ESC. Compru6belo con 
el programa del ejemplo y ver6 que siempre 
sucede asi. 
Cuando deseemos interrumpir definitiva- 
mente la ejecuci6n en lugar de presionar una 
tecla cualquiera, tendriamos que hacerlo de 
nuevo con E$¢. Ahora se abandona definiti- 
vamente el programa y en la pantalla nos apa- 
rece el mensaje: 
BREAK IN x 
donde x es el nOmero de linea donde Io he- 
mos detenido, y a continuaci6n, en la siguiente 
ilia de texto, la palabra: 
. <Readw 
con la que el ordenado' nos est6 indicando 
que est6 de nuevo listo p preparado para re- 
cibir cualquier nuevo comando. 
En este caso si desea reanudar la ejecuci6n 
del programa, no es suficiente con pulsar cual- 
quier tecla diferente de ESC, sino que tendre- 
mosque teclear RUN y comenzar de nuevo. 
Recuerde que estaba parado totalmente. 
Ahora bien, puede darse el caso de que, en 
vez de empezar de nuevo, queramos conti- 
nuar con la ejecuci6n del programa en el mis- 
mo punto donde Io habiamos abandonado. 
C6mo hacerlo? 
El Amstrad, o mejor sus creadores, son 
muy previsores. Pensaron en una instrucci6n 
Basic que nos Io resolviera, y de hecho la en- 
contraron: CONT. 
Ejecuta de nuevo el Programa 1. Det6nga- 
Io totalmente presionando dos veces la tecla 
ESC. Le aparecer6 en la pantalla la palabra 
<<Ready indicndole que puede escribir un 
nuevo comando. 
Teclee ahora la orden CONT. Qu ocurre? 
Sencillamente que el micro se coloca en el pun- 
to donde habia abandonado la ejecuci6n y 
desde alli continOa la misma sin ningOn pro- 
blema. 
Visto y comprendido todo esto, no., co- 
mience a escribir el Programa 2. Qu6 ocu- 
rrir6? 

Programa dos 

En esencia es muy semejante al anterior. Se 
trata tambi6n de un bucle sin fin en el que se 
imprime un texto indefinidamente. 
Pero ahora hemos utilizado la sentencia 
WHILE... WEND con la Onica salvedad que 
la condici6n se va a cumplir indefinidamente 
(lineas 40 a 60). 

Aparte del tipo de bude empleado, qu6 es 
Io que los diferencia? Echele una ojeada de- 
tenidamente. Le seguimos recordando la su- 
gerencia de salvarle antes de su ejecuci6n, no 
sea que luego haya problemas. 
Observe queen la linea 20 hemos introdu- 
cido un nuevo comando. Concretamente ha 
sido la instrucci6n: 
ON BREAK CONT 
Qu sucede cuando se ejecuta esta linea. 
Teclee RUN para poner en marcha el progra- 
ma. Aparentemente no ocurre nada nuevo o 
anormal. Un mensaje aparece continuamen- 
te inund6ndonos la pantalla debido a la re- 
petici6n del bucle que anteriormente le comen- 
t6bamos. 
Trate ahora de interrumpir la ejecuci6n del 
mismo pulsando ESC cuantas veces desee. Pe- 
to, qu6 ocurre? Pues est muy claro: 
iNO PUEDE DETENERLO! 
Estos son los efectos producidos por el nue- 
vo comando. ON BREAK CONT ha imposibi- 
litado que podamos detenerle meti6ndonos, 
esta vez si, en un verdadero <bucle que no 
tiene fin. 
La Onica posibilidad de hacerlo es reinicia- 
lizando el ordenador o apagndolo definiti- 
vamente, pot eso le hemos repetido varias ve- 
ces que antes de ejecutar los programas, y de- 
bido a este tipo de protecci6n, era muy con- 
veniente asegurarse que ya estaba guardado 
correctamente en cinta o disco. De Io contra- 
rio, la Onica forma de poder conseguir un lis- 
tado del mismo, seria teclearlo de nuevo y 
cuando sea muy largo, no nos resultar6 muy 
rentable, verdad? 
Entonces quedamos que ON BREAK le in- 
dica al ordenador que cuando detecte que 
queremos detener o romper (BREAK)la eje- 
cuci6n del programa, no haga caso de esta 
interrupci6n y continOe a su aire. No habr6 
olvidado ya Io que hacia la orden CONT! 
Pero con el Amstrad podemos hacer que 
estos efectos, que nos proporcionan una pri- 
mitiva pero efectiva manera de proteger un 
programa, puedan no ser permanentes a Io 
largo de la ejecuci6n del mismo. 



Queremos decir con esto que estamos, o vo- 
mos a estar, en disposici6n de inhibit o hobili- 
tar estas interrupciones en las partes del pro- 
grama que deseemos. Teclee el Programa 3 
y sobre 1 Io veremos mas claramente. 

Programa tres 

En la linea 20 estamos activando esta pro- 
tecci6n que prohlbe detenciones. A conti- 
nuaci6n, despu6s de borrar la pantalla, se vi- 
sualiza un texto informativo de Io que va a pa- 
sar (linea 40) y debajo de 61 aparece el valor 
de una variable que Ilamaremos <bu¢le y 
que varia desde 1 a 50. 
Le hemos dado ese hombre porque se trata 
de la variable de control de un bucle FOR... 
NEXT que comienza en la linea 50 y termina 
en la 90. Su Onica misi6n es servirnos como de 
una especie de contador visual que nos deter- 
minor6 la parte de la ejecuci6n del programa 
en la que no sera posible interrumpirle. 
En la linea 80 encontramos otro bucte del 
mismo tipo, pero en este caso s61o nos sirve 
para retardar el cambio de valores produci- 
dos en la variable <(bu¢le)). 
Asi pues, durante todo este tiempo el pro- 
grama esta <protegido,contra posibles deten- 
ciones debidas a la tecla ESC. Intente hacerlo 
mientras el Amstrad est6 escribiendo los va- 
lores de esta especie de contador comprendi- 
dos entre 1 y 50. No se puede. 
La linea 120 del programa imprime otro 
mensaje en la pantalla. Ahora nos informa que 
ya si permite interrupciones, ser6 cierto?, y 
el bucle de la linea 130, tambi-n sin fin. tiene 
como 0nica finalidad que el programa no ter- 
mine nunca, ya que se trata de un WHILE... 
WEND en el que la evaluaci6n de la condi- 
ci6n es siempre cierta y por tanto el bucle gi- 
ra sobre si mismo sin hacer nada. Cu61 es el 
cuerpo del mismo. 
Probemos pulsar de nuevo la tecla ESC. Si 
Io hacemos uno vez en esta ocasi6n, la ejecu- 
ci6n del programa si se detiene, y sila presio- 
namos otra vez, se interrumpe definitivamen- 
te y se abandona por completo. 
En la pantalla nos aparece de nuevo el men- 
saje: 
BREAK IN 130 
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indic6ndonos el lugar donde se ha producido 
la parada (linea 130) y a continaci6n: 
Ready 
Por qu6 ahora si podemos interrumpir la 
ejecuci6n? Observe la linea 100 del Progra- 
ma. En ella descubrimos una nueva instrucci6n 
Basic: 
ON BREAK STOP 
Con esta orden conseguimos anular los efec- 
tos producidos por el ON BREAK CONT de 
la 20. Por tanto no podremos detener la mar- 
cha del mismo mientras se est6n ejecutando los 
lfneas comprendidas entre la 20 y la 90, pero 
cuando pose por la 100 con: 
ON BREAK STOP 
permite que el programa pueda ser de nuevo 
interrumpido con la tecla ESC. 
Puede convenirnos, en algOn momento, que 
el ordenador avise al (atrevido) que ha- 
ya intentado parar un programa de Io que est( 
queriendo hacer y adem6s imped[rselo. Escri- 
ba ahora el Programa 4 y s61velo antes de eje- 
cutarlo. 

Programa cuatro 

Hemos introducido en el nuevo comando en 
la linea 20: 
ON BREAK GOSUB 
Hasta el momento hemos visto que podia- 
mos hacer que el ordenador permitiero o no 
que el usuario del mismo (o sea, nosotros) pu- 
diera detener la ejecuci6n de un programa o 
le estuviera totalmente prohibido hacerlo. Em- 
pleando convenientemente los instrucciones 
ON BREAK CONT y ON BREAK STOP Io con- 
seguimos con toda facilidad. 
El Programa 4 es, de nuevo, un bucle sin fin 
que nos escribirc continuomente un mismo 

mensaje en la pantalla. Este es el efecto que 
producen los lineas 40 y 50. 
Ante este desafio intentemos interrumpirle 
pulsando dos veces ESC, a ver qu6 pasa. 
Ahora ocurre olgo totolmente diferente a Io 
que sucedia en los programas anteriores. Por 
un lado vemos que el hecho de presionar ESC 
una vez si produce efecto sobre la ejecuci6n: 
¢la detiene. Esto es Io que est6bamos acos- 
tumbrados aver antes de comenzar a leer este 
articulo. 

10 REH PRQQRRHA ZV 
20 ON BREAK QDSU9 100 
30 EL9 
40 PRINT'TRATA DE BETENERHE = 
50 GOTQ 40 
110 PRINT" AL TRATAR DE DETENERN 
EECUTO LA RUTNA DE 
NEARS 100 A 
120 FDR RETARDI TO IO00NXT RETA 
RDD 
30 RETURN 

Pero <dele de nuevo a ESC. gQu6 nueva 
sorpresa nos espera? 
No ocurre Io mismo que con el Programa 
1, donde se abandonaba definitivamente la 
ejecuci6n, ni como en el Programa 2, en el que 
se hacia caso omiso a la tecla. 
En esta ocasi6n, cuando presionamos dos 
veces ESC, salta a ejecutar la subrutina com- 
prendida que comienza en la linea 100. Este 
es el efecto que produce la orden: 
ON BREAK GOSUB 
Cuando se trate de rom per -BREAK- 
la marcha de un programa se va a recorrer 
una subrutina (GOSUB) que comienza en el 
n0mero de linea que hay al final de la 20 - 
justo detr6s de GOSUB. 
Naturalmente, tras ejecutar la rutina y una 
vez hayamos Ilegado a la linea 130, el RE- 
TURN que alli se encuentra <retorna o devuel- 
ve el control al punto en el que fue interrum- 
pido el programo, o sea, entre las lineas 40 
y 50. 



Tantas veces coma inlentemos detenerla ve- 
remos en la pantalla el mensaje que has in- 
dica que se ha producido el salto a la 1 O0 
ra luego continuar donde Io habiamos deja- 
do. 
C6mo salir de esta encerrona? 
La instrucci6n ON BREAK GOSUB, al igual 
que ON BREAK CONT, se anulan mediante 
la arden ON BREAK STOP. Recuerda? 
Con el Programa 5 vamos a vet la manera 
de hacerlo. Intente interrumpirle en los dife- 
rentes momentos que aparezcan en la panta- 

Programa cinc. 

Es evidente que tras pasar par la linea 20, 
si pulsamos dos veces la tecla I:$¢ mientras 
nos aparece en la pantalla <(MOMENTO 1, 
estamos obligando al ordenador a que ejecute 
la subrutina que comienza en la linea 100. 
Alli, Io primero que hacemos es desactivar 
la prohibici6n de interrupci6n mediante el: 
ON BREAK STOP 
de la propia linea 100. 
A continuaci6n se visualiza el mensaie indi- 
cativo del lugar donde estamos -120- y 
cambiamos en la 130 el valor de la variable 
<<momenta)). 
g KEY- 

- lan Key Cover, es el cubretedados ideal para el tedado 
de su Amstrad 6128. 
- Prote¢ci6n firme cel tedado (reallzado con resistente me- 
tacriloto tronsparenle de una solo plaza). 
- Aiuste perfedo en su ordenador con suave precisi6n y 
bertura 

- Protecci6n continua contra eJemenlos externos 
(derrames de ffquidos, polvos, golpes). 
- Resguardo permanente contra el polvo y la po- 
luci6n le150% de las averas de teclado son par esle 
motivo}. 
lan Key Cover para amstrad 
6128... 2.480 pts. (i,o i,l,Jdo). 

Tras el bucle de retardo de la linea 140, vol- 
vemos al punto donde la ejecuci6n fue inte- 
rrumpida. Pero ahora el <momento es 
otro y asi nos Io dice el texto que aparece en 
la pantalla. 
Si en este momenta, o sea en el 2, pulsamos 
dos veces ESC, habremos <(rata)) la ejecuci6n 
del programa ya que desactivamos la prohi- 
bici6n de hacerlo, y de nuevo veremos el co- 
rrespondiente mensaje: 
BREAK IN... 
seguido de: 
(<Ready> 
Coma habr6 podido comprender, todo es- 
to es debido a que al ejecutarse la rutina que 
comienza en la linea 100, la instrucci6n ON 
BREAK GOSUB acaba con los efectos que pro- 
duce el ON BREAK STOP de la 20. Par tanto, 
al pulsar ahora ESC ya no saltamos de nuevo 
a dicha subrutina, sino que abandonamos de- 
finitivamente la ejecuci6n. 
COMPUPRO 

FLOPPY DISK DRIVE 

-- Ahisima calidad. 
- Silenciosos, 6gil y manejable. 
-Conectable a su Amstrad 
6128 directamente a tray,s del ca- 
ble y conector (incluido en el pre- 
cio). 
-- Completamente compatible 
con todos sus programas y disket- 
tes de 3" para su Amstrad 6128. 
-Compupro, Ifder en la fabrica- 
ci6n de floppys para Apple, Metha- 
morphic, PC, Dunross PC-XT y aho- 
ra Amstrad. 
Compupro 3" disk drive + co- 
nectar.., 24,000 pts. 
First $.A. Importodor de 
Compupro. 

Qu6 paso si intentamos parar entre las 
neas 100 a 1507 Es el momenta en el que pro- 
grama est6 sabre la propia subrutina. Pues, 
iint6ntelo, hombre! 
iVaya!, parece que no ocurre nada. Es clue 
no funcionar con ella el efecta de ON 
SUB STOP? 
Pues paFece que osi es. So]amente Io nota- 
remos, o seF( opreciable, cuando eslemos de 
vuelto de esfa rulino ol lunar donde se infen- 
f6 detener el proroma. Asi que, icuiddo! 
Qu le paFece todo esfe nuevo coniuni'o de 
inslFucciones? Le doton o] Am,Ird cle toda 
una potencia que yo quisieran pora si alguno 
que otro de los grandes ordenadores que cir- 
culan par el mundo. 
Y seguro que usted, con su imaginaci6n y 
ganas de trabajar, ser6 capaz de producir con 
elias (y arras m6s, clara) pequeas obras de 
arte que har6n palidecer de envidia a m6s de 
un programa avezado. $61o nos queda repe- 
tirle el consejo de salvar los programas antes 
de ejecutarlos. Nos Io agradecer6. 
Yen la pr6xima ocasi6n m6s cosas, iHasta 
ella! 
I A I'[ "PRIHTER STAH'D 80 

-- on pr n er S and, es el soporle deal pora toda improsora. 
- Soparle del paso de ,u impresora reahzado con resisten- 
te metacr o o ronsparente de una solcpieza. 
-- Indicodar 6ti¢o de n0mero de unidades exitentes de su 
ormularlo especTico con la numeraci6n apartuna an la porte 
frontal de Ion Pr nter Sand). 
I A ff "PRIffTER STAff'D 132 

-- Ahorro de espacio qua Ud. precisa para su mesa o escri- 
Ior;o. 
lan Printer Stand 80 Col... 4.424 pts, (Ivainduido). 
Ion Printer Stand 132 Col... 5.880 pts. (h,o incluido). 
First S.A. Distribuidor exdusivo para Espafia de Ion. 

n°t°r Correo. Pr,0v o total = re<io arlcuto + oto en',o. Gasos enf,o: Ion 

FIRRT .q A 

Valencia, 195, .TDA. 
08011-Barcelona 
t 323 03 90 
Tlex: 53947 FIRS E 



AMSTRAD CPC-46' AMST' ' 

t 

ORDENADO ' 

SERIE CPC 

AMSTRAD CPC 464 

AMSTRAD CPC 6128 

UNIDAD CENTRAL. MEMORIAS 
. Mlcroprocesador ZSOA- 64K RAM 
ampliables - 32K ROM ampliables 
• TECLADO.• Teclado profesional con 
74 tecl. sen 3 bloques - Hasta 32 teclas 
programables - Teclado redeflnible 
• PANTALLA • Monitor RGB verde (12') 
o color (14") 
Se pueden defimr basra 8 ventaas de 
texto y 1 de grtficos • SON]DO 
• 3 canales de 8 octavas moduladas 
independientemente - Altavoz'interno 
regulable - Salida estreo • BASIC 
• LocomoUve BASIC ampliado en 
Incluye los comandos AFI'ER y [;VERY 
para control de interrupctones 

CASSETTE • Cassette incorporada con 
velocldad de gr@act6n (1 6 2 Kbaudlos) 
controlada desde Basic • CONECTORL 
• Bus PCB multiuso, Umdad de Dsco 
exterior, paralelo Centronics, salida 
ester•o, joystick, lfipiz 6ptico, etc, 
• SUMINISTRO • Ordenador con monitor 
verde o color - 8 cassettes con 
programas - Libro "Guia de Referenc]a 
BASIC para el programadqr" - Manual en 
castel ano- Garatltia Oficll AMSTRAD 
ESPAA, 
TODD POR 59.900 Pts. (monitor verde) 

UNIDAD DE DISCO • Umdad 
mcorporda para disco de 3" con 180K 
por tara • SIST-MAS OPERATIVOS 
• AMSDOS, CP M 2,2, CP M PI,s (3,0) 
• CONECTORES ' BfS PCB muluso, 
paralelo Centromcs, cassette exterior, 
21' Unidad de Disco, salida estreo, 
joysticks, lpiz 6prieD, etc. 
• SUMINISTRO • Ordenador c' monit. 
verde o color- Dtsco con CP M 2.2y 
lenguaje DR. LOGO- Os¢o con CP M 
Plus y utilidades - Disco con 6 programas 
de obsequio - Manual en castellano 
Garntia Oflclal AMSTRAD ESPAIA. 
TODD PORI 84,900Pts, (monitor verde) 
'llg.900Pts. (monitor color) 



PCW- 8256 ' MSTRAD CPC- 612: 

,% 

UNIDAD CENTRAL. MEMORIAS ° 
* icroprocesador ZA- 256K RAM de 
las que l I2K se utilizan como disco RAM 
, TECLADO e Teclado profesional en 
castellano..(fi, acento...) de 82 teclas 
, PANTALLA ' Ionitor verde de alta 
resoluci6n - 90 columnas > 32 lineas e 
texto, UNIDAD DE DISCO • Disco de 
3" y 173K portara- Opcionalmente, 
2. Unidad de Disco de 1 Mbyte integrable 
, SISTV..MA OPEIATIVO • CP M Plus 
de Digital Research",, IbiPR .-'SORA ,, 
Alta calidad (NLQ) a 20 c.p.s. :Calidad 
estndar a 90 c.p.s. - Papel continuo u 
hojas sueltas - Alineaci6n automfitica.del 
papel - Caraaeres normales, 
cornpr,midos, expandidos, control del 
paso de letra (normal, cursiva, negrita, 
subindices, superindices, subrayado, etc). 
• OPGIONES • Kit de Ampliaci6n a 
512K RAM y 2. a Unidad de Disco- 
lnte,'%ce S.rle PS 2'2 y par.l-h 

de Disco e Impresora - Discos con el 
procesador de Texto LocoScript, CP M 
Plus, Ma!lard, BASIC, DR. LOGO ydversas 
utilidades - Manuales en cast•llano - 
Oarantia Oficial AMSTRAD ESPAIA. 
TODO POR 129,900 Pts. 

Los ms prestigiosos paquetes de 
Software Profesional, en formato 
AMSTRAD.,. a "pre¢ios AMSTRAD" 

Exlste tambi&n la versl6n PCW 8512 con 
512K RAM y la 2? Unidad de Disco de 
1 Mbyte incorporada 
* El PCW 8256 puede utilizarse como 
terminal yen comunicaciones, 
El I.V.A. no esf includo en los precios. 
NOTA: Es muy lmportanle venficar la garanth del 
aparato ya que s61o MTRAD IPAN puede 
garantizarle la ordenada reparad6n y sobre todo 
materiales de repuesto oficiales (Monitor, 
ordenado cassette o unidades de discos). 
I I 
Avda. del Mediterrneo, 9. Tels. 433 45 48 - 4 4 76 
2&07 MADRID 
IMlegaci6n Catl: Tan, ag ha, ll0 • Tel. 325 10 
08015 BARCELONA 

o 
S AMSTRAD    ' 
AMSTRAD PCW 8256 °Centronics e SUMINISTRO • Ordenador 
completo c'n teclado, pantalla, Unidad 



iSE MUEVE! 

En anteriores cap[tulos hemos visto c6mo realizar 
ia impresi6n en cuaiquier parte de la pantalla, as[ 
como la forma de detectar la pulsaci6n de 
cualquier tecla. 
Hoy hemos realizado un programa que combina 
las dos cosas; se trata del movimiento en pantalla 
de un car6cter gr6fico. Este se mover6 a un lado u 
otro seg6n la tecla del cursor que se haya pulsado 
en ese momento. 

Jara realizar cual- 
quiet programa de este tipo, en pri- 
mer lugar se deben efectuar las ini- 
cializaciones correspondientes. Dado 
que Onicamente se va ha producir el 
movimiento de un car6cter, debere- 
mos definir las coordenadas iniciales 
del grfico en pantalla. 

/ 

Para poder almacenar esas varia- 
bles en c6digo m6quina, se debe re- 
servar un espacio de memoria que 
sea capaz de contenerlas sin que se 
puedan perder en cualquier 
momento. 
Dado que el 0nico registro simple 
que puede trabajar con espacios de 
memoria es el acumulador, utilizare- 
mos ste para colocar las variables 
anteriormente mencionadas en di- 
chos espacios de memoria. 
Para ello efectuamos las siguientes 
operaciones: 
LD A,12 
LD (POSX),A 

en este momento hemos almacena- 
do la coordenada horizontal del gr6- 
rico a imprimir en la posici6n de me- 
moria indicada por la variable 
POSX. 
Seguidamente deberemos almace- 
nar la posici6n vertical, para ello ha- 
cemos: 
LD A,20 
LD (POSY),A 
Para que nuestro programo fengo 
cono¢imiento de curies son los posi- 
¢iones de memorie utilizedes pare 
dicho fin, deberemos indicarselo de 
la }orma siguienfe: 
POSX:DEFB ]2 
POSY:DEFB 20 
De esta forma dichas direcciones 
de memoria nos indicar6n en cada 
momento cu61 es la posici6n del ca- 
rgcter que se est6 moviendo en pan- 
talla. 
Seguidamente nos encontramos 
con el bucle principal, que ser6 el en- 
cargado del control del programa, 
Ilamando alas diferentes rutinas que 
se utilicen. 
En este caso el bucle 0nicamente 
contiene la Ilamada a la rutina de te- 
clas que es la que realiza la funci6n 
de desplazamiento de pantalla de 
nuestro gr6fico. 
De esta forma, dicho bucle hace 
una Ilamada a la rutina TECLAS y, 
una vez que retorne, se hace un sal- 
to relativo para que se vuelva a efec- 
tuar la Ilamada: 
BUCLE:CALL TECLAS 
JR BUCLE 
A continuaci6n viene la lectura de 
teclado, que es la encargada de leer 
las teclas del cursor, y enviar el pro- 



grama a diferentes rutinas seg0n la 
tecla que se haya pulsado en cada 
momento. 
De esta forma cuando se pulse 
<<cursor derecha>> se envia el progra- 
ma a la rutina DERECH. De la mis- 
ma forma cuando se pulse cualquier 
otra tecla del cursor, se enviar6 el 
programa a la rutina correspondien- 
te. 
Vamos a vet ahora cada una de 
las rutinas que se encargan del mo- 
vimiento propiamente dicho. Con la 
primera que nos encontramos es con 
la rutina DERECH. 
Dicha rutina se encarga de incre- 
mentar la coordenada horizontal pa- 
raque nuestro car6cter se desplace 
horizontalmente hacia la derecha. 
AI entrar en dicha rutina Io prime- 
ro que hacemos es la comprobaci6n 
de la anterior cooordenada horizon- 
tal, para ello cargamos en el acumu- 
lador su valor y Io comparomos con 
39. Dicha comprobaci6n se efect0a 
para que el gr6fico no se salga por 
la parte derecha de la pantalla. 
LD A,(POSY) 
CP 39 
RET Z 
Si su valor es 39, retorna al pro- 
grama principol sin incrementar las 
coordenadas. Si por el confrario di- 
cho coordenada es menor, entonces 
se incrementor6. 
Antes de actualizar dicha variable, 
deberemos borrar de pantallo el ca- 
r6cter, para Io cual se realizar5 una 
Ilamada a la rutina BORRA. 
CALL BORRA 
A continuaci6n tomamos de meo 
moria el valor de la variable para in- 
crementarlo, seguidamente se vuelo 

vea guardar en dicha posici6n en 
memoria: 
LD A,(POSY) 
INC A 
LD (POSY),A 
$61o queda ya imprimir el car6c- 
ter en los coordenodas octuales de 
ponfallas, para Io cual reolizamos 
una llamada a la rutina PINTAR y re- 
forno ol programa principal. 
CALL PINTAR 
RET 
Seguidamenfe se encuenfra la ru- 
fina IZQUI que es la encargada de 
decremenfar la posici6n horizontal 
del carcter a imprimir. Antes de en- 
trar en esto rufina se compara la 
coordenada con el valor 2, yo que 
6sta es la Olfima posici6n de panta- 
lla en la cual se desea imprimir. 
LD A,(POSY) 
CP 2 
RET Z 
Si el valor de dicho coordenada es 
2, se reforna al progromo principal, 
de Io confrario se decremenfa la 
coordenada y se imprime el cor6c- 
ter en la nueva posici6n. 
Los rutinas encargadas de hacer 
subir o baiar a nuestro gr6fico son 
ABAJO y ARRIB, que se encargan de 
acfualizar los valores de la coorde- 
noda vertical. 
AI enfrar en ellas se compara si la 
posici6n vertical del gr6fico esf6 en 
el limite de la pantalla en el que de- 
seomos imprimir; si es asi, Io rutina 
retorna sin actualizar el valor de di- 
cha ¢oordenada, de Io contrario, 6s- 
to es actualizada y se imprime el ca- 
r6cter gr6fico en la nuevo posici6n 
de pontalla. 

Por 01timo nos encontramos con las 
rutinas encargadas de borrar y pin- 
tar el grfico de la pantalla. 
La primera de elias se encarga de 
borrar el gr6fico de la anterior posi- 
ci6n de la pantalla, para ello se lla- 
ma en primer lugar a una rutina que 
coloca en el registro HL los coorde- 
nadas de nuestro car6cter, para lue- 
go Ilamar a la rutina del firmware 
que coloca el cursor en dicha posi- 
ci6n: 
CALL PONCOR 
CALL #BB75 
a continuaci6n se debe imprimir en 
dicha posici6n de pantalla el car6c- 
ter <espacio>> cuyo c6digo ASCII es 
32, 
LD A,32 
CALL #BB5A 
RET 
una vez hecho esto se retorna al bu- 
cle principal. 
La rutina de impresi6n en panta- 
Ila funciona de forma similar a la an- 
terior, pero esta vez se toman las 
coordenadas actuales y se imprime 
en pantalla el car6cter 248, que es 
el que se mueve por la pantalla. 
Para ello se llama a la rutina PON- 
COR que coloca los coordenadas ac- 
tuales en el registro HL, para luego 



PROGRAMA BASIC 

iO REM $t$1NICIALIZACION$$1 230 -+I:LOCATE x,y:PRINT CHR$(248 
20 REM ' 
3A MODF I 240 RETURN 
40 -20.y 12:LOCATE x,y:PRINT CHR$( 250 REM 
2481 2aO REM I$1NCREMENTO IZQUIERDAll 
50 REM • 270 REM 
60 REM $$BUCLE PRINCIPAL$$$ 280 IF x 2 THEN RETURN 
70 REM ' 290 LOCATE x,y:PRINT CHR$(32) 
80 SOSUB 130 300 x=x-I'LOCATE x,y:PRINT CHR$(248 
90 GOTO 80 ) 
I() REM ' 310 RETURN 
110 REM $$LECTURA DE TFC|ADOI$$ 320 REM 
120 REM " 330 REM $$$1NCREMENTO ARRIDA$$$ 
130 IF INKEY(tl 0 THEN GOS[IB 210:RE 340 REM 
TURN 350 IF y-2 THEN RETURN 
140 IF INKEY(81=O THEN GOSUB 280:RE 360 LOCATE x,y:PRINT CHR$(32) 
TURN 370 y y-I:LOCATE xy:PRINT CHR$(248 
.50 IF INKEY(O)-O THEN GOSUD 350:RE ) 
TURN 380 RETURN 
160 IF INKEY(2)-O THEN GOSUB 420:RE 390 REM 
TURN 400 REM $$$1NCREMENTO ADA30$1 
70 RETURN 410 REM 
180 REM ' 420 IF y 24 THEN RETURN 
190 REM $$INCREMENTO DERECHA$$$ 430 LOCATE xy:PRINT CHR$(32) 
200 REM ' 440 y=y+I:LOCATE x,y:PRINT CHR$(48 
210 IF x-39 THEN RETURN ) 
220 LOCATE xy:PRINT CHR$(32) 450 RETURN 
LISTADO DESENSAMBLADO 

In ORG #AO00 
20 ; 
n ;INICIALIZACION 

40 ; 
5 ID 
60 CALL #BCOE 
70 ID 
80 I D (POSX),A 
90 LD A20 
100 LD (POSY)A 
]I0 CALL PINTA 
20 POSX: DEF 12 
130 POSY: DEFB 20 
140 | 

150 ;BUCLE PRINCIPAl 
160 ; 
170 BUCLb: AI TECI_AS 
180 3R BUCLE 
190 ! 
200 ;LECTURA DE TE'LADO 
210 ; 
22n TECL:S: LD A,I 

230 CALL 
24A R Z,PASTI 
250 CALL 
270 PASTI: ID 
28 CALl #BBIE 
290 JR Z,PAST2 
300 CALl IZQIll 
310 RET 
20 PAST2: XOR A 
330 CALL #BBIE 
340 R Z,PAST3 
350 CALL ARRIB 
360 RET 
370 PAST: LD A,2 
380 CALL #BBIE 
390 RET 
400 CALL ABA30 
410 RET 
420 ; 
40 ;INCREHENTO DERECHA 
440 ; 
45 DFRECH: ID A, (POSY) 
4&O CP 39 
470 RET Z 
480 CALL BORRA 
490 LD A, (POSY) 
500 INC A 
510 I D (POSY)A 
520 CALL PINTA 
530 RET 
540 ; 
550 |INCREMENTO IZQUIERDA 
560  
570 IZQUI: LD A, (POSY) 

580 
590 
600 
&lO 
620 
630 
640 
650 
&70 
680 
700 
710 
720 
730 
740 
75O 
760 
77O 
78O 
790 
800 
810 
820 
830 
840 
85O 
8aO 
87O 
BB 
890 
900 
910 
920 
93O 
940 
950 
960 
970 
980 
99O 
I000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 

CP 2 
RET Z 
CALL BORRA 
LD A,(POSV) 
DEC A 
LD (POSY),A 
CAll PINTA 
RET 
; 
;INCREMENTO ARRIBA 
; 
ARRIB: I_D A, (POSX) 
CP 2 
RET Z 
CALL BORRA 
LD A(POSX) 
DEC A 
LD (POSX),A 
CALL PINTA 
RET 

;INCREMENTO ABAJO 

ABAJO: 

; 
; RUT I NA 
; 
PINTA: 

LD A,(POSX) 
CP 24 
RFT Z 
CALL BORRA 
LD A(POSX) 
INC A 
tD (POSX),A 
CALl PINTA 
RET 

; 
;RUTINA 
; 
BORRA: 

DE IMPRESION 

CALL PONCOR 
CALL #B875 
18 A,248 
CALL #BB5A 
RET 

DE BORRADO 

CALL PONCOR 
CALL #BB75 
LD A,32 
CAIL #B85A 
RET 

;COLOCA COORDENADAS EN El 
;REBISTRO DOBLE Hi. 
; 
PONCOR: LD A, (POSX) 
LD L,A 
LD A,(POSY) 
LD H,A 
RET 

Ilamar a la rutina del firmware que 
pone el cursor en dicha posici6n. 
Una vez hecho esto se carga en el 
acumulador el valor del car6cter a 
imprimir y se llama a la rutina encar- 
gada de la impresi6n (#BBSA). 
La rutina que coloca las coordena- 
das en el registro doble HL, Io que 
hace es tomar la posici6n de panta- 
Ila de las variables POSX y POSY, y 
las asigna a los registros H y L para 
luego retornar: 
LD A, (POSX) 
LD L,A 
LD A,(POSY) 
LD H,A 
RET 
Uno vez hayamos eiecufados los 
programas Bosic y mcquino, podre- 
mos comprobor la rapidez de uno y 
ofro, aunque la velocidod del c6di- 
go m6quino se oprecio mucho meior 
cuando no se utilizon rufinos del sis- 
lemo (es decir del firmwore), ounque 
para realizar un progroma sin la ufi- 
lizoci6n de dichas rufinas se debe set 
un experfo en Io progromaci6n. 

LISTA DE I/ARIAB- 

ABAaO Ao?F ARRIB A06B 
BuCLE AOI4 DERECH A043 
PASTI A024 PAST2 Ao2F 
PINTA A093 PONCOR AOAB 
pOSY A013 TECLAS A019 
Table used: 182 from 2&4 
PROGRAMA 
CARGADOR 

BORRA AOgF 
IZQUI A057 
PAST3 A039 
POSX AOI2 

I0 FOR N-&AO00 TO &AOB4 
2A READ A:SUHA-SUMA+A 
30 POKE 
40 NEXT 
50 IF SLIMA(>55EB THEN PRINT "FRROR 
EN DATAS" 
&O DATA 2,1,205,14,188,6212 
70 DATA 5018,1&O,a220,50,17 
80 DATA IbO,205,147,1aO,12,20,205 
90 DATA 25,1bO,2,25,a2,1,205 
100 DATA 30,187,40,4,205&7I0 

110 DATA 
120 DATA 
130 DATA 
140 DATA 
150 DATA 
160 DATA 
170 DATA 
180 DATA 
190 DATA 
200 DATA 
2]0 DATA 
220 DATA 
230 DATA 
240 DATA 
250 DATA 
260 DATA 
270 DATA 
280 DATA 
290 DTA 
300 DATA 
310 DATA 

201,62,8,205s30s187s40 
4,205,87,1&0,201,175,205 
30,187,40,4,205,107,10 
201,62, P,205,30, I7,20 
205,127,1b0,201,58,19,160 
254,37,200,205,159,1&0,58 
19,1aO,bO,50,19,10,205 
I7,160,201,58I?Ia0,25 
2,200,205,157, I0,58,19 
160,&1,50,1?,1&0,205,147 
I0,201,58,18,160,254,2 
200,205159,160,58,18,1&0 
61,50,18,160,205,147,160 
201,5R,18,160,254,24,200 
205,159laO58,18160&O 
50,18I020547160201 
205171I020511718762 
2482059018720120%171 
160,205,117,187,2,32,205 
90,187,201,58,18,160,111 
58,19,10,103,201,0,0 
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Paquete integrao de eesti6n que e permite a Vd., de h rma :oil y optimizando el '  \ 

Este paquete incorpora los pro: . mas de COITABILIDAD, FACTURACION y 
CONTROL DE STOCKS adems de un progra  de CONTROL DE PEDIDOS y todo 
' ,  de/orma interactiva. Controle su empresa  or slo ' " 
. #.   ,,, >,, ,,, ,, 29.900 pts. 
ContaMidad .. de stocks 
Contabilidad de Hcil mane]o y " permitirn a Vd. flevar con 
de,ran potencia que permite claridad 7 sencillez el control 
trabajar con cuentas de basra Programa de grin agifidad y de su stock. 
cuatro niveles, con capacidad rapidez que incorpor el ' El programa le permite //evar 
Control de Clientes, con gran un libro de entradas/safidas, 
segbn diskette de 500/1.000 capacidad de datos, Arficulos, reorganizado, hacer listados de 
cuentas 7 de 2.000/0.000 A]baranes, &cturas y recibos. 
asientos, stocks .... /e avisar de los ffmites 
Permite modificar o dar de ba]a Generaci6n automtica y de stocks, minimo £ mdximo 
apuntes ya integrados en el manual de documentos, pot arficulo, etc... 
vdoraci6n,  vo/untad de los Todo para /a //evanza de 
Mayor, programaciones de a[baranes, todo tipo de listado, a/macbn. 
cierres, ficheros de incMdo el del IVA de 
Contabilidad y Cuenta de 14.900 ptas. 
Explotacin, ejecuci5n de facturas emitidas para la 
balances comparativos, declaraci5n de Hacienda, etc.. . -   / 
reenlazndolos por meses, ' "  
clave acceso restringidG etc...  -  
15.500 ptas. 
19.900ptas. ., ,,/, ,. .,_ 
,I ' " <r PCW's  . ,/,   ..-  
,stmtsmo,,COntabdtdad dtspomble paraCP 664/ . " 
,/flene al6na 8ificultad en obtenerlos dirijase a ,' ' 



THE MUSIC 
SYSTEM 
CINTA/DI$CO 

.Es posible imaginar que nuestro ordenador pueda producir 
desde moderna mdsica tecno, hasta la m6s selecta mdsica 
cl6sica? The Music System no s6lo la interpreta, sino que 
ademas, nos hate la partitura. 

mos visto 
esos videos musicales en los queen 
la secci6n de te lados aparece un or- 
denador (generalmente un Macin- 
tosh), y enlos que la mgsica tiene un 
inconfundible car6cter f.uturista. 
Podriamos pensar que la presen- 
cia del ordenador es simplemente 
una ancdota o un mero adorno, pe- 
ro la verdad es que es el principal 
responsable de que los teclados sue- 
nen asi. 
Gracias alas posibilidades de sin- 
tesls del sonido, los teclistas pueden 
generar cualquier tipo de sonido 
imaginable, e introducirlo en los te- 
clados para su ejecuci6n. 
Con ello podemos emular los soo 
nidos de los teclados de Vangelis, de 
Jean Michael Jarre, Maniobras Or- 
questales y dem6s grupos en la cres- 
ta de la mOsica de actualidad. 
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$61o con tener el software adecua- 
do esto es posible. Pero hasta la fe- 
cha los poseedores de un Amstrad 
no teniamos la posibilidad de intro- 
ducirnos en la mOsica electr6nica. 

Software.p.ara hacer 
muslca 

Gracias a la aparici6n de The Mu- 
sic System ahora disponemos de un 
potente programa de desarrollo mu- 
sical. 
Con este programa tenemos a 
nuestra disposici6n un amplio n0me- 
ro de posibilidades musicales, que no 
solamente se limitan a hacer que sue- 
ne el teclado del ordenador como si 
de un 6rgano se tratara, sino que 
afiade interesantes funciones que le 
hacen francamente interesante para 
el conocimiento de la m0sica. 
The Music System abarca simult6- 
neamente los campos de interpreta- 
ci6n, sintesis de sonido y composici6n 
musical, constituyendo la obra m6s 
completa de software dedicada a es- 
te arte. 
A la hora de interpretar melodias, 
las dos lineas superiores del teclado 
constituyen un 6rgano monof6nico 
de dos octavas, con las cuales pode- 
mos tocar a nuestras anchas. 
Pero no s61o hemos de limitarnos 
a la m0sica monof6nica (una melo- 
dia solamente), tambign podemos 
hacer m0sica polif6nica (tres melo- 
dias sonando simult6neamente). 
Para poder crear sta, nuestro 6r- 
gano es capaz de grabar melodias 

distintas en cada una de las tres pis- 
tas de la memoria de sonido, las cua- 
les se pueden escuchar por separa- 
do, o mezclar a nuestra convenien- 
cia. 
Podemos realizar un play back, en 
el cual una de las melodias es el con- 
tenido de la pista elegida y la melo- 
dia solista la producimos nosotros 
desde el teclado. 
Otra ventaja que apreciar6n sobre 
todo los poseedores de disco, es la 
de poder grabar nuestras composi- 
ciones o la de cargar el repertorio de 
melodias de demostraci6n que con- 
tiene el programa, la audici6n de las 
mismas nos da una idea de las ma- 
ravillas que se pueden realizar con 
esta pieza de software. 

M6s que interpretaci6n 

Si las posibilidades de interpreta- 
ci6n son importantes, la parte m6s 
espectacular del programa es la de- 
dicada a la transcripci6n de partitu- 
ras. 
AI mismo tiempo que interpreta- 
mos nuestra obra maestra, podemos 
ver las notas aparecer en el penta- 
grama, obteniendo de forma auto- 
m6tica la partitura de Io que estamos 
tocando. 
Para los amantes del pentagrama 
y la composici6n, podemos recorrer 
el camino a la inversa, escribiendo la 
m0sica directamente en pantalla, co- 
mo si de una partitura se tratase, pu- 



diendo escuchar el resultado en cual- 
quier momento. 
Esta funci6n nos permite copiar 
cualquier partitura de m0sica y lue- 
go escuchar c6mo suena, todo ello 
sin tener ni los ms minimos conoci- 
mientos de solfeo. 
La parte del programa dedicada 
al sintetizador nos permite crear so- 
nidos a nuestra medida, aadir efec- 
tos electr6nicos a instrumentos musi- 
cales y luego utilizarlos en nuestro 6r- 
gano como un sonido m6s. 

• No s61o para msicos 

La cantidad de aspectos musicales 
que toca este programa, hace pen- 
sar que su manejo puede resultar ex- 
tremadamente complicado y que su 
utilizaci6n requiere un gran n6mero 
de horas de pr6ctica, adem6s de 
unos profundos conocimientos musi- 
cales. 
Nada m6s lejos de la realidad, si 
este programa tiene algo que le ha- 
ce destacar sobre las montaas de 
software existente, es que acerca la 
mgsica hasta la gente que no la ha- 
ya oido ni de lejos. 
Introduci6ndonos m6s en el tema, 
The Music System es ideal para 
aquellas personas que quieran estu- 
diar m6sica, constituyendo un inme- 
jorable tutor musical tanto para ni- 
os como para adultos. 
Por si todo esto fuera poco, el pro- 
grama est6 realizado de forma que 

la comunicaci6n entre 61 y el usuario 
se realiza de la forma m6s f6cil posi- 
ble. 
The Music System utiliza la forma 
m6s evolucionada de comunicaci6n 
existente hasta nuestros dias, la ba- 
sada en la utilizaci6n de iconos. 
Por medio de 6stos, la utilizaci6n 
de diversas opciones resulta inmedia- 
ta, sin tener que recurrir a un inter- 
minable repertorio de teclas de con- 
trol que no harian m6s que complio 
carnos la vida. 
El manual de instrucciones consti- 
tuye una pieza clave para aprove- 
char al m6ximo las posibilidades del 
programa, con una extensi6n de 47 
p6ginas se nos explican detallada- 
mente todas las opciones del mismo 
y c6mo explotarlas a conciencia. 
Pero no todo iba a ser un campo 
de rosas: el 0nico fallo que podemos 
echarle en cara a este programa es, 
que las 47 p6ginas de instrucciones 
est6n escritas en ingl6s, por Io cual 
muchos de los espaolitos que aOn 
no est6n integrados plenamente en 
la Comunidad Econ6mica Europea 
no se enterar6n de nada. 

La evoluci6n 
del programa 

The Music System es el resultado 
del trabajo realizado a Io largo de 
m6s de dos amos por un equipo ex- 
perto en el campo de la m0sica. 
El primer antecedente fue el Muo 
sic Editbr, programa creado por Phi- 
lip Black para el BBC micro que apa- 
reci6 en abril de 1983. 

En agosto del mismo ao, System 
comercializa un programa realizado 
por Geoffry Ellis Ilamado The Enve- 
lope Generator. 
En octubre de ese ao, Adrian 
Boot de Island Logic se pone en con- 
tacto con System para el desarrollo 
conjunto de un paquete integrado de 
m0sica escrito integramente con c6- 
digo m6quina. 
En el mes de febrero, el equipo 
empieza a trabajar en el proyecto 
decidindose realizar el programa a 
base de iconos para facilitar el uso 
del mismo. 
En octubre de 1984 se obtiene la 
primera versi6n comercial de The 
Music System realizada para el BBC 
micro. 
En diciembre, el equipo del Music 
System inici6 el proyecto de una ver- 
si6n mejorada para el Commodore 
64, incluyendo un nuevo m6dulo MI- 
DI para la conexi6n del programa 
con teclados y sintetizadores. 
La versi6n definitiva queda termi- 
nada en agosto de 1985, desarro- 
Ilando System simult6neamente una 
versi6n simplificada del programa, 
especialmente concebida para ser 
comercializada en casseffe. 
Posteriormente Ilega la versi6n de 
Amstrad, basada integramente en la 
de Commodore. 
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The Music System 
en accion 

Cargado el programa en la me- 
moria del ordenador tenemos en el 
monitor la pantalla b6sica, en la cual 
est6n contenidos todos los elementos 
fundamentales del programa y de la 
cual surgen los submen0s y dern6s 
m6dulos de programa. 
Est6 constltuida por cinco bloques 
independientes: Teclado, Pentagra- 
ma, Secuenciador, Pistas de sonido 
y MenO principal. 

El men principal 

Est6 constituido por una linea si- 
tuada en la parte superior de la pan- 
-talla conteniendo cuatro palabras; 
FILES, VALUES, COMMANDS, IN- 
FO. 
Cada opci6n entra en funciona- 
miento al pulsar la correspondiente 
tecla de funci6n, surgiendo de la na- 
da, con la m6s pura t6cnica de la ico- 
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nografia informctica, el submen0 de 
opciones. 
FILES, es el meng que rige los ar- 
chivos en cinta/disco. 
Hay dos tipos de archivos: MUSIC 
FILES para guardar melodias y can- 
ciones, y SOUND FILES, que nos 
permiten guardar sonidos sintetiza- 
dos y sonidos de instrumentos. 
El prograrna contiene una serie de 
canciones de demostraci6n e instruo 
mentos grabados. 
VALUES nos da toda la informa- 
ci6n referente a la melodia que te- 
nemos en memoria, detall6ndonos el 
comp6s, tempo, pista de sonido uti- 
lizada, clave y m6s informaci6n de 
valor inapreciable para el conoci- 
miento de la obra que estamos eje- 
cutando. 
COMMANDS es utilizado para 
manejar el pentagrama electr6nico, 
pudiendo de esta manera borrar la 
melodia de memoria, borrar deter- 
minada pista, limpiar la pantalla del 
pentagrama e intercarnbiar el conteo 
nido de dos voces. 
INFO nos facilita toda la informa- 
ci6n relativa alas notas contenidas 
en las tres pistas de sonido; de esta 
forma, conocemos el ngmero de no- 
tas existentes en la pista n0mero 1, 
en la 2 yen la 3; de igual modo, sa- 
bernos el sonido que existe en cada 
pista y el nornbre con que tenernos 
archivada dicha composici6n. 

J Tocando mgsica I 

La interpretaci6n de mgsica con el 
teclado del ordenador reproduce 
exactamente las funciones de un 6r- 
gano electr6nico. 
Disponemos de un instrumento de 
22 teclas, semejante al teclado que 
aparece en pantalla, formando las 
teclas numricas 1, 2, 3, las notas ne- 
gras y las Q, W, E, etc., las notas 
blancas. 
El cambio de octava se realiza a 
toque de tecla, disponiendo de tres 
posibilidades; grave, rnedia, aguda. 

Grabando pistas 

Nuestro 6rgano dispone de tres 
pistas distintas de grabaci6n, en ca- 
da una de las cuales podemos alma- 
cenar una rnelodia distinta. Esta que- 
da registrada seggn tocamos en el 
teclado, y puede ser corregida des- 
de el punto deseado. 

La utilizaci6n del play back nos 
permite ejecutar una melodia con el 
fondo contenido en cualquiera de las 
pistas, de esta forma podemos com- 
poner canciones con melodia solista 
y dos acompafiamientos. 
Con el sistema de pistas podemos 
tener hasta tres instrumentos musica- 
les sonando simult6neamente con las 
grandes posibilidades rnusicales que 
ello representa. 
Cuando estemos satisfechos de 
nuestra composici6n, 6sta se graba 
en cinta o disco para la posteddad. 

La mgsica escrita 

Una de las m6s impresionantes 
funciones de este prograrna, es la 
posibilidad de obtener partituras de 
forrna autorn6tica. 
El pentagrarna electr6nico es el 
responsable de esta impresionante 
aplicaci6n, con 61 podemos obtener 
la partitura de una melodia a la vez 
que la estamos interpretando en el 
teclado. 
A cada toque de tecla, aparecer6 
en el pentagrarna la nota con su du- 
raci6n correspondiente. Cuando he- 
mos acabado de interpretar podeo 
mos reproducir la partitura comple- 
ta en el pentagrama. 
Otra posibilidad del pentagrarna 
electr6nico es la de escribir mgsica di- 
rectamente, como si Io realiz6semos 
con Ipiz y sobre papel pautado. 
Para ello seleccionaremos en pri- 
mer lugar la duraci6n de la nota; re- 
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donda, corchea, etc., son represen- 
tadas en un icono par el que nos mo- 
vemos a toque de tecla hasta situar- 
nos en la elegida. 
Luego, la situaremos a la altura del 
pentagrama correspondiente al tono 
de la misma. Las notas pueden ser 
borradas e introducidas entre otras 
existentes. 
Componer de esta forma s61o es- 
t al alcance de muy pocos, pero la 
escritura en pantalla se puede apro- 
vechar para reproducir partituras y 
comprobar c6mo suena Io impreso 
en partituras. 

Los posibilidades que pone a dis- 
posici6n del usuario el pentagrama 
electr6nico hacen que este programa 
sea de valor incalculable para los es- 
tudiantes de m0sica, resolviendo de 
un plumazo todos los problemas que 
acarrea el solfeo. 

Sintesis de sonido 

La m0sica electr6nica tambi6n es- 
t representada en este programa 
gracias al sintetizador. 
Con un sintetizador, podemos 
construir los sonidos a nuestro gus- 
to, pudiendo de esta manera repro- 
ducir el sonido de instrumentos de 
mOsica; piano, guitarra, 6rgano, 
flauta, etc. o dotar a nuestro tecla- 
do de los sonidos representativos de 
la m6s avanzada mOsica tecno. 
La sintesis de sonido consiste en el 
diseo geom6trico de la farina que 
va a tener nuestra onda de sonido en 
funci6n del tiempo de emisi6n (envol- 
vente sonora). 
Despu6s de Io cual podemos aa- 
dir efectos de eco, reverberaci6n, ill- 
tros sonoros, resonancia, ruido y de- 
m6s factores que integran el sonido 
electr6nico. 
Una vez obtenido nuestro sonido, 
nos serviremos del secuenciador pa- 
ra utilizarlo en nuestro teclado. 
Mediante 6ste podemos controlar 
el volumen de esa voz, la altura to- 
nal de la misma, y seleccionar el ti- 
po de onda al que queremos que se 
ajuste nuestro sonido. 

Conclusiones 

Tenemos ante nuestros oios una 
aut6ntica obra maestra del softwa- 
re que permite acercar tanto la m0- 
sica cl6sica coma la m6s avanzada 
mOsica electr6nica, al usuario de un 
ordenador. 
Las superpotentes cualidades del 
pentagrama electr6nico hacen de es- 
te programa un inmejorable tutor 
musical, id6neo tanto para los que 
no saben Io que es una corchea, co- 
ma para los estudiantes de solfeo. 
A los adictos a la interpretaci6n, 
les impresionar6 la gama de sonidos 
que puede conseguir el sintetizador, 
y gracias a la utilizaci6n del play 
back, conseguir6n sonar coma una 
aut6ntica orquesta. 
Todo Io cual se realiza de una for- 
ma f6cil y espont6nea gracias al in- 

mejorable diseo del programa me- 
diante el usa de iconos facilitando la 
comunicaci6n con el usuario de for- 
ma extraordinaria. 

The Advanced 
Music System 

Hasta ahora hemos hablado de la 
versi6n simplificada del programa, 
pero no hemos de olvidar que The 
Music System fue concevido coma un 
completo programo de desarrollo 
musical. 
The Advanced Music System, es el 
hermano mayor de nuestro progra- 
ma, y con 61 obtendremos una m6- 
quina de aut6ntico tratamiento del 
sonido. 
Esta versi6n est6 especialmente 
orientada a la utilizaci6n de un MI- 
DI con el cual poder comunicar el or- 
denador con instrumentos musicales. 

Gracias a 61, se puede procesar el 
sonido de un 6rgano alterndolo a 
nuestra conveniencia, consiguiendo 
un potentisimo sintetizador, ideal pa- 
ra introducirnos en la experimenta- 
ci6n sonora. 
La versi6n avanzada es id6nea pa- 
ra profesionales de la m0sica o ver- 
daderos entusiastas de la interpreta- 
ci6n musical, constituyendo una he- 
rramienta de primera mona para 
cualquier grupo musical que quiera 
darle a su sonido una nueva dimen- 
si6n. 

Este programa es distribuido par: 
SERMA. 
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,  H  RAD PCW 85  2 
P£GANDO FUERTE 

Alan Sugar potencia el PCW 8256 y da un paso rn6s 
dentro del mundo del pequeo ordenador de gesti6n. 

Alberto Garcia S. 

vez en el mercado 
el modelo compaero del gran CPC 6128, es- 
perado PCW 8256, y en vista del xito obte- 
nido por este Oltimo, la firma brit6nica ha de- 
cidido mejorar Io presente> y ha sacado al 
mercado un modelo m6s ovanzado: el PCW 
8512. Con 1, se ha eliminado la principal li- 
mitaci6n del 256>: su capacidad de almace- 
namiento de programas y datos. Con uno se- 
gunda unidad de disco y una -refrescante- 
ampliaci6n de 256 K para el disco virtual. M 
(RAM interna), se ha Iogrado que, en compa- 
raci6n, sea el 512 un aparato con el que ya 
se puede trabaiar con m6s solutra. Las posi- 
bilidades que ofrece son, naturalmente, m6s 
que las del pequeo de la familia, el 256. Y 
es que ya existe memoria paro poder traba- 
jar. Intentamos explicar todo ello. 

Generalidades 

Fxternamente, unidad apagada, el 512 ape- 
has si se diferencia del pequeim 256. El co- 
lor es un tanto mas oscuro, las etiquetas nos 
dicen que nos encontramos ante un 512 y, Io 
m6s importante, la segunda unidad de disco, 
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que se encuentra debajo de la primera, justo 
donde el 256 tiene la plata que indica que el 
monitor es de f6sforo verde. Del resto, todo 
es exactamente igual: impresora, monitor y te- 
clado son los ya probados en el 256, que ya 
tienen m6s que confirmada su fiabilidad. Hasta 
aqui, poca cosa... Pero entremos en el 
apargto. 
Al/encender la unidad y cargar el disco de 
sistema, nos encontramos con ms diferencias: 
el mensaje inicial es apreciablemente distinto. 
En vez de 112 K de memoria interna, nos en- 
contramos con 368 K, o sea, 256 K adiciona- 
les. Grata sorpresa; pot fin podremos tener 
progromas completos en el disco virtual, en- 
tre otras cosas, y no es poco. Adem6s de es- 
to, el monitor nos comunica que tenemos dos 
unidades instaladas. Cabe decir aqui que es 
posible tener un 256 con segunda unidad de 
disco, pero sin ampliaci6n de memoria inter- 
no, Io que nos situaria a medio camino entre 
los dos modelos. La diferencia es notable, y 
el aparato resulta un hibrido que no me atre- 
vo a calificar. El tema de la ampliaci6n de M 
Io tocaremos ms adelante. 

2. = Unidad: diferenclas 
con la 1.  ventajas 
e inconvenientes 

En et PCW 512, la primera unidad de disco 
es exactamente igual a la del 256. La segun- 
da es considerablemente m6s potente. Varia, 
en este caso, el formateado, que es m6s den- 



so, con Io que se consigue el poder almace- 
nar mayor cantidad de informaci6n. La Iono 
gitud del disco se aprovecha mejor. Y ojo, que 
la unidad B formatea las dos caras AL MIS- 
MO TIEMPO. No se asuste, entonces el usuao 
rio cuando, por error, formatea (inicializa) un 
disco en B de la misma forma que Io hate en 
A, es deck, primero una tara y luego la otra. 
Cuando se hate asi, ocurre que la unidad bo- 
rra el formato de la tara opuesta y, claro, al 
verificar nos dice que falta la primera marca 
de direcciones en la dicha cara. Para el usua- 
rio <orgullosote (entre los que, Io reconozco, 
me incluyo) Io primero que viene a la cabeza 
es un posible defecto de la unidad. Y Io es, peo 
ro de la unidad que se sienta enfrente del apa- 
rato. 
Y vamos a las capacidades: al aplicar la uti- 
lidad SHOW del sistema operativo a un disco 
recin formateado en la segunda unidad de 
disco tenemos como resultado que hay 706 K 
libres en ¢ste (y no 720, que es Io que nos dio 
ce el fabricante). Aun asi, la diferencia no es 
tanta, y esto ya permite un uso con unas posi- 
bilidades bastante mgs interesantes que las del 
pequeo de la familia PCW. Pero todo tiene 
sus peros: hay que decir que, en Io tocante a 
la segunda unidad, los discos pensados para 
la primera, los denominados CF-2, son v61i- 
dos, pero no los propios. Para esta segunda 
unidad, el tipo de disco ha de ser eJ Ilamado 
CF2DD, o sea, de doble cara, pero de do- 
hie densJdad, Esto deberia de ser asi por- 
que, tal y como hemos dicho, la informaci6n, 
dado el formateado, va m6s condensada, y 
por ello por Io que es mgs conveniente utili- 
zar un disco con una emulsi6n m6s sensible. 
Aun asi, que quede claro que los discos CF-2 
son v61idos, aunque exista el peligro potencial 
de que causen problemas. 
En Io que respecta a la compatibilidad en- 
tre unidades, tambin hay tela que cortar: 16- 
gicamente, un disco con formato para <<720 
K NO puede ser leido en la primera unidad, 
concebida para un formato de 172 K. Cuan- 
do se comete esta torpeza, la unidad diorama, 
emitiendo una especie de gruidos, en sepal 
de protesta por la incorrecta utilizaci6n. Ten- 
gan cuidado y no se equivoquen (sugiero que 
los discos formateados en B se marquen) por- 
que parece ser poco dificil el que una unidad 
se quede bloqueada. Y a Io mejor ste es mo- 
tivo para ello. En el otro sentido, es decir, de 
B para A, nos encontramos con todo un deta- 
lie por parte del fabricante: un disco de la uni- 
dad A SI puede ser leido por la segunda uni- 
dad de discos. Y digo todo un de'alle porque 
esto no Io hacen todos los que se dedican a 
producir Hard. Fsta cualidad resulta muy 0til, 
sobre todo porque evita el engorro de tener 
que estar cambiando de disco constantemen- 
te. 
La copia de discos, por ejemplo, es consi- 
derablemente ms c6moda leyendo en B y es- 
cribiendo en A. Y tambin resulta prctico 
cuando necesitamos alguna utilidad del CP/M 
y |enemos M y A (sobre todo A) ocupados. En 

fin, que los combinaciones son m0ttiples y to- 
das son mejoras sobre el 256. Y ya que el te- 
ma son las unidades de disco, quisiera traer 
a coJaci6n otro tema: cuando se Ileva mucho 
tiempo trabajando con el ordenador, se apre- 
cia un calentamiento de los discos que no pa- 
rece normal. La pregunta que surge es si este 
calentamiento no perjudicar al disco, y si no 
seria conveniente sugerir la implantaci6n de 
un pequeo ventilador, al igual que las grano 
des unidodes Io tienen. Yes que creo que se 
deberia cuidar el aspecto de la seguridad de 
los datos almacenados en los Floppys. No les 
parece? 

El virtuoslsmo 
de la memoria virtual 

Es con la ampliaci6n de memoria, de 256 
K, con Io que se Ilega a redondear el aparao 
to. Las 368 K libres nos permiten utilizar la me- 
moria interna igual que si fuese otro disco, con 
la enorme ventoja que ello conlleva, porque, 
al suprimirse el accionamiento mec6nico que 
guia el cabezal en una disquetera y el proce- 
so de lectura, la ejecuci6n de programas por 
M y el acceso a los datos es considerablemente 
m6s rpido. Vendria entonces esta memoria 
interna o reemplazar, por su capacidad, a la 
unidad A, pudiendo sta quedar disponible 
para otros menesteres, como el de almacena- 



miento de datos. Y dense cuenta de siesta om- 
pliaci6n representa avance en el momenta en 
que, contando con la 2. a unidad, disponemos 
de alga m6s de 1 Megabyte para almacenar 
datos. Me parece que sobran comentarios, 
no? 

los que nos dan los opciones de utilizar la uni- 
dad B con el programa mencionado. En el res- 
to del soft no se han encontrado variaciones. 

n definitiva 

Acerca dei soft... 

No existen problemas. Todos los programas 
ejecutables par el 256 Io son igualmente par 
el 512. Lo que es m6s, hay muchos progra- 
mas pensados inicialmente para el 256 que, 
en pre',.isi6n, tienen rutinas para aprovechar 
la 2. a unidad de disco del 512. Coma ejem- 
plo, el tener en A el disco de programa yen 
la unidad B, los datos que surgen del proceso 
de ste. En Io concerniente a los programas 

Toda resignaci6n que pudiese tenet el usua- 
rio de un 256 al ver que su aparato se le que- 
daba chiquito queda aliviada, sin duda, con 
la comercializaci6n de1512 -par una parte- 
y de la ampliaci6n, sumada a la segunda uni- 
dad, par otra. 
Salvando el temor que puede inspirar el usa 
de discos CF-2 en la 2. a unidad (y con la es- 
peranza de que los discos de doble densidad 
salgan YA, que todavia no han salido). ILa 
verdad es que me pregunto para qu se po- 
hen a comercializar la 2. a unidad sin tener en 

que vienen con e[ equipo, no hay diferencias, 
exceptuando ei hecho de que, con el 512 se 
suministra ya una versi6n m(s avanzada del 
Loco Script, la 1.21 (esta versi6n ya venia con 
algunas unidades de1256 de gltima hornada). 
La diferencia primordial, aparte de algunas 
simplificaciones con vistas a una mayor rapi- 
dez de usa (la 1.21 tiene una ventana que 
agrupa casi todas las opciones de edki6n, de 
manera que no haya que ir ventana par ven- 
tana) es que la 01tima versi6n ofrece la posi- 
bilidad de pasar cualquier fichero creado a 
ASCII, con Io cual ste puede ser interpreta- 
do par otros aparatos que trabajen bajo 
CP/M. 
Par otra porte, la utilidad DISCKIT, al tener 
las dos unidades instaladas, ejecuta otras ru- 
tinas que, si utilizamos el mismo disco en un 
8256, no aparecen. Estas rutinas son, clara, 
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el mercado los discos apropiados para ella, 
y Io que es m6s, nos dicen, clara, que la se- 
guridad de los datos grabados en un CF-2 pe- 
ligra si stos se utilizan en formato <720). M(s 
bien indignante, francamente) es el AMSTRAD 
PCW 8512 un aparato FIABLE (no, no resul- 
tauna contradicci6n, pues la culpa de Io an- 
teriormente dicho no es del Hardware), ade- 
m6s de set un equipo con mucha madera de 
profesional, perfectamente encuadrable en el 
terreno de la gesti6n a media nivel (conozco 
aparatos que est6n Ilevando satisfactoriamen- 
te contabilidades completas de empresas). 
Con un incremento de la memoria que re- 
sulta set cuatro veces mayor que la del 256 
(706 K de disco B, m6s unas 320 de A, m6s 
368 de M suman 1.384 K), ya no tiene par qu 
haber temor a quedarse cortos. En Io tocante 
al precio, para aquellos que no tienen apa- 

rata pero sila voluntad de tenerlo, mi conse- 
jo es que se vayan a1512, que merece la pe- 
no. Esto siempre y cuando se le piense expri- 
mir, que, si bien se deia, hay mucho que re- 
clear. Para los que ya tienen un 256, quisiera 
aportar el data de que el montaje de la segun- 
da unidad de disco, m6s la ampliaci6n, les vie- 
ne a salir aproximadamente par la diferencia 
entre ambos equipos. Y a prop6sito de mon- 
taje, decir que ste parece ser que resulta bas- 
tante dificil, repitiendo palabras de los tcni- 
cos. Coma gltimo detal[e curioso, para aquel 
que tenga acceso a los denominaciones de los 
escarabajos que componen la ampliaci6n de 
256 K, que vayan y pregunten, par piezas suel- 
tas, el precio. A Io mejor hay sorpresas. 
El camino de Amstrad parece clara. NO 
a la expansi6n a un mismo nivel, sino la as- 
censi6n de categorias paulatinamente. En es- 
ta ascensi6n resulta un peldao s61ido el de 
la -corta- familia PCW. Se ve que Io medi- 
tan. 
Aparte de una tercera unidad de 10 Megas 
en disco duro para esta serie (Io que ya seria 
rizar el rizo) parece que se confirma la sali- 
da, all para septiembre, de un compatible, 
demolador en Io tocante a precios. Aqui, a la 
espera de verlo. Fntretanto... A sacarle par- 
tido a su <512)). 
NOTA: los discos de doble densidad se en- 
contrarn ya disponibles cuando usted lea este 
articulo, cosa que no ocurria en el momenta 
de su confecci6n. 

FICHA TECNICA 

Modelo: Amstrad PCW 8512. 
Micropro- 
cesador.' Z-80 de Zilog. Frecuen- 
¢ia de trabajo: 4 Mhz. 
Monitor: F6sforo verde, 12". 
Control de brillo. 
Teclado: Profesional, tlpo 
QWERTY.  y acentos. 
Teclado numrico y te- 
clas redefinibles par el 
usuarlo. 
Irnpresor- 
a: 80 columnas. Cabezal 
matricial, 20 caracteres 
par segundo (N.L.Q.), 
90 caracterespor se- 
gundo en calidad es- 
t6ndar. Papel continua 
u hojas sueltas. Bajo 
Loco-$cript, hasta 108 
tipos diferentes de 
letra. 
Floppys: Dos, uno para forrna. 
tear a 172 K par cara, 
y otro para 720 K (for- 
matea el disco de una 
vez). 

Memoria 
interna: 

368 K disco virtual. 61 
K memoria de usuario. 
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I  ASTERMIND 

Javier Acero Villdn 

El Mastermind no necesita presentaci6n. Ya sabes, 
es Io que siempre se dice cuando no se tiene ni..., 
Io que yo te dJga, idea de qu escribir acto 
seguido, y el papel, coma la m6s hambrienta e 
implacable de las Parcas, o coma un Ford Escort, 
sin ir m6s lejos, reclama m6s y m6s combustible: 
carnada, carnada. Pero en este caso, es cierto. 
Todos conocis el Mastermind, todos habis 
jugado, ganado o perdido a 1, pero, no a ste. 
Creedme: no es igual a los dem6s; par 
presentaci6n y par programaci6n. 

jl programa que 
les presento, es el cl6sico juego de 
sal6n del mismo titulo, aprovechan- 
do las posibilidades multicolores del 
Amstrad. 
Como en el juego de mesa, se tra- 
ta de adivinar un c6digo de cuatro 
colores de entre seis posibles, en el 
Nivel 1, o entre siete en el Nivel 2. 
Teniendo en cuenta que los colores 
pueden repetirse, obtenemos 1.296 
6 2.401 posibles combinaciones res- 
pectivamente. 
A cada c6digo propuesto por no- 
sotros nos ira dando informaci6n me- 
diante cruces rojas, si hemos acerta- 
do la posici6n y el color, o amarillas, 
si adivinamos el color pero no la po- 
sici6n correcta. 
El programa Io he realizado para 
que vaya controlando el juego de 
hasta 5 jugadores, apareciendo la 
clasificaci6n, ordenada de mayor a 
menor puntuaci6n, cuando todos los 
jugadores hayan cubierto su turno, 
e indicado los puntos obtenidos en la 
partida y el total acumulado. 
Las instrucciones que figuran en el 
programa, creo que son Io suficien- 
temente explicativas para no necesi- 
tar m6s aclaraciones. 

En cuanto al programa, en el lis- 
tado se puede comprobar que est6 
muy estructurado, diferenciando cla- 
ramente coda rutina, con Io que se- 
guirlo y entenderlo no ofrece la me- 
nor dificultad. 
Los variables y subrutinas m6s im- 
portantes utilizadas son los siguien- 
tes: 

VARIABLES 

color 
coladi 
jugador$ 
jugs 
puntos 
pun 
totales 
tot 
J 
nivel 
tirada 
cruzr 
cruza 
swr 
swa 
pista 
m, t, d 

Lista de colores elegidos 
por el ordenador 
Colores a adivinar por 
el jugador 
Lista de jugadores 
Lista de jugadores a 
clasificar 
Puntuaci6n de cada 
jugador 
Puntuaci6n a clasificar 
Puntuaciones 
acumuladas 
Totales a clasificar 
N0mero de jugadores 
Niveles de juego 
Controla el ciclo que 
nos da 10 oportunida- 
des de acierto 
Acierios en color y 
posici6n 
Aciertos s61o en color 
Switch que controla el 
n0mero de cruces rojas 
Idem amarillas 
N0rn, de pistas por 
tirada 
N0mero de notas, tono 
y duraci6n 
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SUBRUTINAS 

80 Dimensiona los listas 
100-240 Crea caracteres 
250-350 Pregunta si desea 
instrucciones 
380-630 Dibuja la pantalla de 
iuego 
640-700 Carga la lista de 4 colo- 
res al azar, asignando 
el color 12 si sale un 2, 
o el color 7 si sate un 4. 
710-890 Selecciono y dibuja los 
colores elegidos por el 
jugador asi como la 
puntuaci6n 
900-1030 Compara los colores del 
ordenador con los del 
iugador preparando las 
cruces rojas o amarillas 
que luego tendr que 
escribir 
1040-1140 Vo dando las pistas y 
restando puntos si no se 
acierta 
1150-1330 M0sica de fallo o 
acierto 
1340-1430 Descubre el c6digo 
oculto 
1440-1590 Acumula totales y orde- 
na la tabla de 
clasificaci6n 
1600-1770 Escribe la tabla de clasi- 
ficaci6n y pregunta por 
otra partida 
1780-1920 Carga el n0mero de 
iugadores 
1930-2000 Elige nivel 
2010-2040 R6tulo 
2050-2380 Instrucciones 



20 '$$ MASTER-MIND 
0 'tt r t$ 
40 "15 Javief Acero 
50 'St 1.986 
70 RANDOMIZE TIME 
80 REM .......... Dimensiones de li 
90 DIM cnlr(4),clad {4),jugadr${ 
5),jug$(5),puntos(5),Run¢5),ttales 
100 REM ............ Creation de 
110 SYMBOL AFTER 242 
120 SYMBOL 242,0128128128128,0, 
128,128 
130 SYMBOL 244,0, I09,73,73,109696 
9,109 
140 SYMBOL 245,0,221,85,85221,21,2 
I21 
150 SYMBOL 246,0,17442,42,42,4242 
,174 
I0 SYMBOL 247,0,149213,18114914 
9,148,148 
170 SYMBOL 2480,90,82,82,9082146 
,155 
180 SYMBOL 249,0,221,149,149,149,14 
9,149221 
190 SYMBOL 250,05942,42,43,4,42, 
186 
200 SYMBOL 251,0,13133133,130,2, 
130130 
210 SYMBOL 252,0,238,170170,234,13 
8,138,142 
220 SYMBOL 253,0,214,148,148,212,84 
,84,214 
230 SYMBOL 254,0,18h171,170,170,17 
240 SYMBOL 255,0,64,64,192,64,64,64 
250 REM ............. Instrucines 
20 MODE I:BORDER 15:LOCATE 7,12:PR 
INT"OUIERES INSTRUCEIONES? 
270 at INKEY$:IF aS "" THEN 270 
280 aS UPPER$a$):IF a$ "S" THEN 31 
0 
290 IF a$-"N" THEN 360 
300 SOTO 270 
310 GOSUB 2020 
320 LOCATE 14,24:PRINT"PULSA ESPACI 
330 WINDON#1,1,40,22,4 
340 PAPER#1,2:PEN#I,0:CLS#1 
350 SOSB 2060 

"1 r ! 

[I I " 

30 REM ............ Numer de uga 
37 GOSUB 1780 
380 FOR I I TO  
390 REM ................ PANTALLA - 
400 MODE O:BORDER 10:punt,s(1) 10 
410 PLDT 221,335,1:DRAM 418,335:DRA 
W 418,385:DRAM 221,385:DRAW 221,335 
47A NINDON#1,8,1,,4 
40 PAPt-h#1,:CLt 
440 lOCATE ,3:PAPER 8:PEN 3:PRINT" 
EODIGO" 
450 PEN 0 
46 FOR n 6 TO 24 STEP 2 
470 LOCATE &,n:PRINT STRIMG$(4,EHR 
(233)) 
4Pf' LOCATE 12, n:PRINT STRING$(4CHS 
$(43)) 
49O NEXT 
500 LOCATE 1,9:PAPER O:PEN 3:PRINT 
EHR$(231);:PEN I:PRINT" R" 
510 LOBATE 1,11:PRINT CHR$(231);:PR 
INT" A" 
520 LOCATE I13:PEN 5:PRINT OHR$(2 
I);:PEN I:PRINT" N" 
50 LOCATE 1,15:PEN 12:PRINT CHR$(2 
31);:PEN I:PRINT" V" 
540 LOCATE 1,17:PEN 6:PRINT CHR$(23 
I);:PEN 1:PRINT" 
550 LOCATE 119:PEN 7:PRINT CHR$(23 
1);:PEN I:PRINT" L" 
5n IF nivel 2 THEN LOCATE I21:PAP 
ER 8:PEN O:PRINT CHR$(231);:PAPER 0 
:IN I:PRINT CHR$(244)CHR$(245)CHR$ 
4246) 
570 IF nlvel I THEN PLOT O,80:DRAN 
IO080:DRAW IO0290:DRAW 0,290:SOT0 
.590 
580 PLOT O50:DRAN 12550:DRAN 125, 
290:DRAW 0290 
590 LOCATE IS,9:PEN 3:PRINT CHRS(43 
):LOCATE 17,10:PEN 2:PRINT EHR$(249 
)CHRS(250)CHR$(251):LOCATE 17,11:PR 
INT CHR$(252)CHRS(253)CHRS(254)CHR$ 
(255) 
600 LOCATE 18,13:PEN I:PRINT CHRS(4 
3);:LOCATE 17,14:PEN 2:PRINT CHR$(2 
49)CHR$(250)CHR$(242) 
at0 PLOT 639,80:DRAW 495,80:DRAW 49 
5,280:DRAW 639280 
620 PLOT 495,153:DRAM 635153 
630 LOCATE 17,18:PEN 7:PRINT CHR$(2 
47)CHR$(248);STRS(niveI) 
640 REM ............... 
Dlres Rata el Drdenadr ...... 
650 FOR =-I TO 4 
660 IF nivel=1 THEN 
RND+I) 
670 IF nivel 2 THEN clr(c)-INT(7$ 
RND) 
680 IF =gl=r()=2 THEN 
90 IF =Ior(=) 4 THEN 
700 NEXT 
710 REM ................. Cl=res e 
legidos Rgr el jugadgr .......... 
720 LOCATE 1,3:PEN 5:PRINT jugador$ 
(I) 
730 FOR tirada=6 TO 24 STEP 2 
740 LOCATE 153:PAPER O:PEN 5:PRINT 
"Punlos":LOEATE 175:PRINT punts(I 
) 
750 LOCATE 5tirada:PAPER O:PEN 14: 
PRINT CHR$(243):PEN I 
70 PAPER 8 
770 FOR c=I TO 4 
7GO a$=INKEY$:IF aS-"" THEN 780 
790 aS-UPPERS(aS) 
800 IF a$-"R" THEN ¢ladi(c) 3:GOTO 
880 
B1¢t IF a$-"A" THEN coladi(E)=1:OOTO 
8SO 
82 IF a$="N" THEN cBladi(c) 5:GOTO 
880 
8.30 IF a$-"V" THEN ]adt(c)-I2:GOT 
0 880 
840 IF a$-"C" THEN (nladi(¢) 6:GOTO 
880 
850 IF a$="L" THEN coladi(¢) 7:GOTO 
980 
86n IF nivel=2 THEN IF aS=" " THEN 
coladi(c) O:GOTO 880 
87n GOTO 780 

880 LOCATE 5+c,tirada:PEN coladi(c) 
:PRINT CHR$(231):PRINT CHR$(7) 
Bgn NEXT c 
900 REM ............. ComRara 
910 cruzr O:ruza O:DIM swr(4),swa( 
4) 
92O FOR = I TO 4 
90 IF clr(c)=cladi(c) THEN ruz 
r-cruzr+t:swr(c)-l:swa()=1 
940 IF cruzr-4 GOTO 1030 
9Kt NEXT c 
9hO FOR z I TO 4 
970 IF swr(z) I THEN 1020 
980 FOR = 1 TO 4 
990 IF a(c) I THEN 1010 
1000 IF cnladi(c)-=olor(z) THEN 
=a (ruza+1:swa(c) I:GOTO 1020 
1010 NEXT 
1020 NEXT 
1030 ERASE swr:ERASE sa 
1040 REM .............. Da las pist 
1050 FOR pista 1 TO cru=r 
1060 LOCATE 11+Ri=ta,tirada:PEN 
RINT CHR$(43):SOUND I25030,5:SOUN 
D 1,300,70:FOR  I TO IO00:NEXT 
1070 NEXT pista 
1080 IF (ru=r=4 GOTO 1250 
1090 FOR psta-1 TO cruza 
1100 LOCATE 11+Rista+cruzrtirada:P 
EN I:PRINT CHR$(43):SOUND 1,15030, 
5:SOUND I100,703:EOR rat TO 1000: 
NEXT 
1110 NEXT pista 
1120 LOCATE 5,tirada:PAPER O:PRINT 
EHR$(32):PAPER S 
1130 puntos(1) puntos(1)-1 
1140 NEXT tirada 
1150 REM ................ Fallo --- 
1160 Runtos(1)--5:LOCATE 17,5:PAPER 
O:PEN 5:PRINT punios(1) 
1170 RESTORE 1230 
1180 FOR m-1 TO 16 
1190 READ t,d 
1200 SOUND 
1210 SOUND 3,0,5 
1220 NEXT 
1230 DATA 179,5017950,179,50190, 
25,213,25,190,50,190,50190,50,213 
25,239,25,213,50,213,50,21,50,29, 
25,2132529,50 
1240 GOTO 1340 
1250 REM ................. Acierto 
1260 RESTORE 1330 
1270 FOR m I TO 20 
1280 READ td 
1290 SOUND 
I0 SOUND 2,t,d, 
1310 SOUND 3,05 
1320 NEXT 
1330 DATA 319,100,358,10035820,37 
9,100,37920358,20,31920319,50,3 
19,20319,50,358,20,379,20,319,203 
19,50,319,20,319,50,358,20,379,20, 
19,20,358,100 
17=40 REM ................ 
=dig= .............. 
1350 PAPER#1,0:CLS#I:LOCATE 9,3 
1360 PLOT 228,34015:DRAN 408,340:D 
RAW 408379:DRAN 228379:DRAN 2283 
40 
1370 FOR = I TO 4 
1380 PAPER 8:PEN coIur(c):PRINT EHR 
$(231); 
1390 NEXT c 
1400 LOCATE 325:PAPER O:PEN 2:PRIM 
T"Pulsa una tecla" 
1410 a$-INKEY$:IF aS="" THEN 1410 
1420 NEXT I 



1430 partida partida+1 
1440 REM ............... Puntuacion 
1450 FOR 
1460 
) 
1470 tot(p)=tgtales(p):pun(p)=gunto 
s(p):jug$(p)=jugador$(p) 
1480 NEXT 
1490 REM .......... Ordena la tabla 
de =lasificaciQn ........ 
1500 FOR punts1 TO 3-I 
1510 IF tot(pun/)>=tot(punt+1) THEN 
1560 
1520 m=tot(punt):n=pun(punt):m$=ju9 
$(punt) 
1530 totlpunt)=tgt(punt+1):pun(punt 
)=pun(punt+1):jug$(punt)-jug$(gunt+ 
I) 
1540 tgt(punt+1)=m:pun(punt+l) 
9$(punt+1)=m$ 
1550 s I 
1560 NEXT punt 
1570 IF s 0 THEN 1600 
1580 s 0 
1590 OOTO 1500 
I00 REM ........... Es=rib= tabla 
de =lasii=ac:Qn ........ 
1610 MODE i:BORDER 4 
1620 80SUB 2020 
1630 L0CATE 35:PRINT"CLASIFICACION 
DESPUES DE'°partida°'PARTIDAS" 1640 LOCATE 36:PRINT STRING$(35'= 
1650 PRINT:PRINT TAB(7)"3uadr°°TAB 
(20)"Puntos"TAB(31)"Total " 
1660 PRINT TAB(7) STRINGS(29'-") 
1670 PRINT 
1680 FOR clas-1 TO 
1690 PRINT TAB(7);jugS(¢Ias)TAB(21 
)|pun(clas)|TAB(32);tot(clas) 
1700 PRINT 
1710 
1720 NEXT 
1730 LOCATE 1224:PRINT"OTRA PARTID 
A? (S/N)" 
1740 a$=INKEY$:IF aS-"" THEN 1740 
1750 IF UPPERS(a$)-"S" THEN LOCATE 
1224:PRINT STRINGS(21" "):GOSUB 1 
940:OOT0 380 
1760 IF UPPERS(aS) "N" THEN BORDER 
I:CLS:END 
1770 GOT8 1730 
1780 REM .................... 
1790 MODE I:BORDER 0 
1800 OOSUB 2020 
1810 LOCATE 25:PEN 2:PRINT"Cuantos 
juadores? (1 a 5) ---" 
1820 a$=INKEY$:IF aS="" THEN 1820 
1830 3-VAL(aS) 
1840 IF <I OR >5 THEN 1810 
1850 LOCATE 345:PRINT 
1860 LOCATE iO=8:PEN I:PRINT"NOMBRE 
S DE LOS 3UGADORES" 
1870 LOCATE IO9:PRINT" = .... 
1880 FOR I=I TO 
1890 LOCATE 1525I+9:PRINT I;:INPUT 
.... JugadorS(I) 
1900 IF LEN(jugador$(1))>6 THEN LOC 
ATE 1825I+9:PRINT'Maximq 6 Ietras 
!! ":FOR ret-1 TO IO00:NEXT:LOCA 
TE 16,25I+9:PRINT STRING$(20 .... 
OTO 1890 
1910 NEXT 
1920 OOSUB 1940:RETURN 
1930 REM .............. Elie nivel 
1940 LOCATE 1522:PEN 3:PRINT"NIVEL 
(1-2)":PEN 1 
1950 a$=INKEY$:IF aS-"" THEN 1950 
1960 nivel-VAL(a$) 
1970 IF nivsl<1 OR n:vel>2 THEN 194 
0 
1980 L(3ATE 2222PRINT 
1990 FOR ret=1 TO IO00:NEXT 
2000 RETURN 
2010 REM .....  ........ R=tulg .... 
2020 PLOT 190,3603:DRAN 450,360:DR 
AN 450390:DRAW 190,390:DRAW 190 
0 
2030 LOCATE 162:PEN 3:PRINT"M";:PE 
N I:PRINT"aster-;:PEN 3:PRNT"M";: 

PEN I=PRINT*ind = 
2040 RETURN 
2050 REM ............ Instrucciones 
2(60 PRINT#I:PRINT#1TAB(14)"INSTRU 
CCIONES '° 
2070 PRINT#ITAB(14)"== 
2080 PRINT#1:PRINT#I" Master-Mnd 
ms un reto • I• inteligen-=ia y • 
2090 PRINT#I:PRINT#I '° E1 ram=so 
ueo de salon ahora en ver-sion par 
a ordenador. 
2100 PRINTII:PRINT#1" 8ebes inten 
tar averisuar un codigo decuatro 
olores y sn los posi=iones exac-tas 
en que se encuentran. 
2110 PRINT#I:PRINT#1 °' Los colores 
pueden estar repetidos. 
2120 PRINT#I:PRINT#I:PRINT#ITAB(7) 
"DESCUBRE EL CODIGO SECRETO!" 
2130 WHILE INKEY$<>" ":WEND 
2140 CLS#1 
2150 PRINT#I:PRINT#I" En la anta 
lla aparecera un recuadrocon la 
alabra CODIGO en el cual se 
den los colores qHe deberas adivina 
ro 
2160 PRINT#1" Bebajo del Codigo d 
os columnas d diilas cads una. 
2170 PRINT#1:PRINT#I" En la colu 
mna de 16 izquierda se irancolcand 
o los colores que elias. 
2180 PRINT#1:PRINT#1" Estos col 
es ss obtienen pulsando laletra in 
icial de su nombre, segun la ta-bla 
que aparecera en recuadro en Ia pa 
r-re zRuierda de la pantalla. 
2190 PRINTII:PRINT#I," Dispones de 
los siguientes:" 
2200 PRINT#I:PRINT#1" RoJo-Amarill 
o-Negro-Verde-Celeste-Lila" 
2210 WHILE INKEY$<>" ":WEND 
2220 CLS#I 
2230 PRINT#I" Pot cad• codigo de 
4 colores introdu-cidgs, el ordena 
pondiente de la cnlumna de ladere=h 
a la sisuiente information: °' 
2240 PRINT#1:PRINT#I," Una cruz 
ja por cada color cglgcadocorrecla 
2250 PRINT#1:PRINT#I," Un• cruz am 
arilla, pot coda cnlor adi-vinada 
2260 PRINT#1:PRINT#I" Acertado el 
codio secreto o agotadaslas 10 o 
portunidades el ordenador des-cb 
rira su combination oculta. 
2270 PRINT#I:PRINT#1" Los puntos 
obtenidos por cads jugadorse iron 
acumulando apareciendo la tablade 
clasi÷icaciones despues de cubrir 
suturnn todos los jgadores. 
2280 WHILE INKEYS<>" ":WEND 
2290 LS#1 
2._0 PRINT#i:PRINT#1" Existen dos 
2310 PRINT#I:PRINT#I" NIVEL I 41. 
296 combinacionPs):" 
2320 PRINT#1:PRINT#1" E1 cgdi 
o se orma con 4 de & gosi- ble 
230 PRINT#I:PRINT#1" NIVEL 2 (2. 
401 combinaciones):" 
2340 PRINT#1:PRINT#1  E1 codi9 
o se forms con 4 de 7 posi- 
2350 PRINT#I:PRINT#1," (El nuevo 
olor es el color de ondo yse obtie 
ne con la barfs espaciadora) 
2360 PRINT#1:PRINT#1,TAB(14)"BUENA 
SLRTE!" 
2370 WHILE INKY$<>"":WEND 
2380 RETURN 

SALTO 
DE DAMA 

El Salto de Dama es un iuego 
muy antiguo; se dice que el 
Homo Erectus (con perd6n) Io 
racticoba asiduamente a Io 
rgo y ancho de los sbonas 
(repito: s6-ba-nas), y que 
cantribuyo en. gran medida a 
la escalada ntelectual que 
culmina en nosotros, los 
hombres tecnificados del,siglo 
XX. Imaginate la que seran los 
del siglo XXI, si Ilegamos, 
despuis de que TU iuegues 
asiduamente a este iuego, 
cortesia de AMSTRAD 
SEMANAL en beneficio de la 
Humanidad. 
Antonio Fernando Aguiler omero 

ste programa es 
un juega de inteligencia que tiene lu- 
gar en un tablero de 7×7 casillas, se- 
mejantes alas del ajedrez y los da- 
mas. AI comenzar el programa se di- 
bujar6 el tablero, colocndose a 
continuaci6n los 32 fichas que com- 
ponen el juego, ya que tanto la casi- 
Ila central coma los grupos de cua- 
tro casillas situadas en las cuatro es- 
quinas se encuentran vacias. El ob- 
jetivo del juego est5 en dejar sola- 
mente una ficha en el tablero, co- 
mi6ndose los demos con saltos simi- 
lares a los de los ctamas, o sea, la fi- 
cha salta desde la casilla de origen 
a la casilla de destino, y la ficha si- 
tuada entre ambas casillas es comi- 
da, y, par tanto, desaparece del ta- 
blero. En coda jugada hay que dar 
la casilla de origen, doncle debe ha- 
her una ficha, y la casilla de destino, 
que debe estar vacia. Estas casillas 
se dan mediante el sistema de fila y 
columna, yenco la primera en la 
banda A-G y la segunda entre 1 y 7. 
Ahora bien, el salto debe ser hori- 
zontal o vertical, pero no estSn per- 
mitidos los saltos en diagonal, y el 
salto entre la casilla de origen y la de 
destino debe tener lugar solamente 
sabre una ficha, que es la que desa- 
parece del tablero. 



10-60 

Tilulo 

ESTRUCTURA 

830 

Comprueba que las 4 

70-230 
240-610 
250-310 
320-380 
390-550 
560-590 
600-610 
620-980 
630-730 
740-820 

Inicializaci6n 
Limpia el buffer del te- 
clodo (y desactiva la re- 840-980 
clo ESC), selecciona el 
modo, ventonos y coJo- 
res, define los simboJos 
que formar6n la ficha y 
las diversas variables 
Dibujo del tablero 990-1090 
Dibujo del tabJero (pa- 
recido al del ajedrez) 
Dibuja las royos situa- 
dos encimo y o ]a iz- 
quierda del tablero 
Dibujo las fichas sabre 
el tablero en modo 
transparente (CHRS 
(22)-CHRS (1)). La li- 
nea 5S0 borra la casilla 
central 
Escribe las letras y los 1110-1150 
nOmeros de las casillas 1160-1320 
Limpia el buffer del te- 
clado y desactiva la te- 
da ESC. Halla el tiempo 
del reloj al empezar 
Toma de datos y com- 
probaci6n del 
movimiento 
Asigna fila y columna 
de origen y comprueba 1390-1600 
que la casilla est6 Ilena 
(tinta 3). Si no Io est6 
salta o Io lineo 11.10 
Asigna fila y columna 
de destino y comprueba 
que la cosilla no est6 
Ilena (tinto 3). Si Io es- 
t',, vo o la lineo 1110 

coordenadas no son 
distintos 
Halla la situaci6n de la 
ficha comida y com- 
prueba que la casilla 
est6 ocupada. Si no Io 
est6, salto a la linea 
1110 
Reolizaci6n del 
movimiento 
Dibujo la ficha situoda 
en la casilla de origen y 
la ficha comido en el 
color de sus respectivos 
casiUas (equivale a bo- 
rrarlas) y coloca la fi- 
cha en la casilla de des- 
tino. Disminuye el n. ° 
de fichas y comprueba 
cu6ntas quedan 
Movimiento inv61ido 
Resultado 
Muestra el n. ° de juga- 
das y de fichas que han 
quedado en el tablero, 
el tiempo durante el 
que se ha jugado, la lis- 
ta de las jugadas y pre- 
gunta si se juega de 
nuevo 
Subrutina de lama de 
datos del movimiento 
(fila y columna). Pide fi- 
lay columna. Almacena 
la ilia y la columna ele- 
gidas coma elementos 
de las matrices tiffs (,) Y 
cccS 
respectivomenfe 

El programa se basa en la conver- 
si6n de coordenadas PRINT en coor- 
denadas PLOT, comprobando poste- 
riormente el color de toda la casilla 

ocupada par la ficha mediante la 
funci6n TEST, para detectar si hay al- 
guna ficha en la casilla o si la casilla 
est6 vacia. 

VARIABLES 

L 

CccS (,) 
fffS (,) 
P 
m 
talS y ta2$ 
x, y 
aS 
flag 
fS, cS 
fi, ci 
ft. cf 
fm, cm 
erS 
ynS 
anS 
ret 
ccm 
cci 
ti 
tiempo 
minutos 
segundos 
tiempoS 

Columnas ocupadas en 
cada iugada 
cccS (,0): columna de 
origen 
cccS (,1): columna de 
destino 
Filas ocupadas en cada 
jugada 
fffS (,0): ilia de origen 
fffS (,1): ilia de destino 
N. ° de fichas que 
quedan 
N. ° de movimientos 
Cuadrados para crear 
el tablero 
Variables usadas en el 
dibujo del tablero 
Cadena que contiene el 
dibujo de la ficha 
Bandera de movimiento 
(O---movimiento des- 
de..; 1---movimiento 
hasta...) 
Fila y columna elegidas 
Fila y columna inicial 
Fila y columna final (de 
destino) 
Fila y columna de la fi- 
cha comida 
Cadena con el mensaje 
de movimiento inv61ido 
Respuesta a la pregunta 
de ver lista de jugadas 
Respuesta a la pregunta 
de intentarlo de nuevo 
Bucle de retardo 
Color de la casilla de la 
ficha comida 
Color de la casilla de la 
ficha que salta 
Hora del reloj interno al 
comenzar 
Hora del reloj interno at 
terminar 
Tiempo transcurrido (en 
segundos) 
Minutos durante los que 
se ha jugado 
Segundos transcurridos 
Cadena con informa- 
ci6n del tiempo jugado 
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NOTA: Para dejar de jugar, pulsar "?" (el 
sino de interrogaci6n), con Io que se accede 
ala pantalla de informaci6n, desde la que se 
puede abandonar el programa con elfin de 
acceder al listado. 

20 REM  SALTO DE BAMA 
30 REM 
40 REM  Antonio FernandQ 
50 REM $ Agilera 
70 REM $ ini=ializa=i=n 
80 RANDOMIZE TIME 
90 EALL &BBO3:REM 
4 y CPC 6128 sustituir per: ON BREA 
K CONT:CLEAR INPUT $ttt 
100 INK 0,11:INK 1,26:INK 2,13:1fI< 
3,0:BORDER 2 
110 PEN I:PAPER O:CLS 
120 MODE 1 
130 WINDOW #OI40, i24:WINDON #IjI 
4025,25:PEN #I3:PAPER #IO:CLS # 
I 
140 BIM 
150 p-32:m-O 
160 SYMBOL 25515,73I,000,0 
170 SYMBOL 254240j224192,128,0,0 
00 
180 a$-CHR$(255)+CHR$(2541 
190 er$ "MOVIMIENTO INVALIDO * 
200 PRINT 
210 LS 
220 tatS CHR$(14)+CHR$(11+" "+GHR$ 
(141+EHR$(21+ 
230 ta2$ CHR$(14)÷HR$(21+" 
(141+CHR$(I)+" 
240 REM $ dibuje 
250 FOR y-6 TO 20 STEP 4 
260 FOR x=13 TO 27 STEP 4:LOCATE 
y:PRINT tal$:LOCATE xy+I:PRINT 
$ 
270 LOCATE xy+2:PRINT ta2$:LOCATE 
xy+3:PRINT ta2$ 
2ElO NEXT x 
290 NEXT y 
300 FOR y 20 TO 21:PAPER O:LOCATE 1 
3y:PRINT " ":NEXT 
310 FOR y-6 TO 20:PAPER O:LOOATE 27 
y:PRINT " ":NEXT 
320 PEN 3 
330 FOR y 6 TO 19 STEP 2 
340 LOCATE 11,y:PRINT "_" 
50 NEXT y 
360 FOR x=14 TO 26 STEP 2 
370 LOCATE 4:PRINT 
310 NEXT 
?0 PRINT GHR$(22)+CHR$(11 
400 FOR =13 TO 25 STEP 2 
41 FOR y-11 TO 15 STEP 2 
420 LOCATE x,y:PRINT aS 
430 NEXT y 
440 NEXT x 
450 FOR -17 TO 21 STEP 2 
460 FOR y-7 TO 13 STEP 2 
470 LOCATE ,y:PRINT aS 
40 NEXT y 
490 NEXT x 
500 FOR =17 TO 21 STEP 2 
510 FOR y 17 TO 19 STEP 2 
520 LOCATE y:PRINT a$ 
530 NFXT y 
540 NEXT  
550 LOCATE 1913:PEN 1:PRINT a$ 
560 PEN 3:FOR i-I TO 7 
570 LOCATE 94+2$i:PRINT 
580 LOCATE 11+i$22:PRINT i 
590 NEXT i 
600 CALL &BBO3:REM 
64 y OPC 128 sustituir Rgr: CLEAR 
INPUT 
I0 ti=TIME 
620 REM $ tema do dates y cmprbac 
ion del movimiente 

630 PEN 3 
640 fla O:LOCATE 422:PRINT "MOVZM 
IENTO DESDE" 
b OOSUB 1400:IF F$-"" THEN 640 
aao i-(ASC(÷$1-64152+4 
670 i 
680 FOR i=i$16 TO 
690 FOR j=399-(÷i$161 TO 
)$161 STEP -I 
700 IF TEST(ij)=3 THEN 740 
710 NEXT 
720 NEXT i 
730 GOTO 1110 
740 LOCATE 2522:PRINT "HASTA" 
750 Ia t:GOSUB 1400:IF 95-"" THEN 
G13TO 750 
760 ff (ASC(f$)-64)12+4 
770 cf=c2+ll 
780 FOR i==÷116 TO (÷+I)116 
790 FOR j-399-(ff$161 TO 399-((ff+1 
)$I&) STEP -I 
800 IF TEST(i=J)=3 THEN 1110 
810 NEXT 
820 NEXT i 
830 IF fl<>ff AND ¢i<>f THEN 1110 
840 IF =i<>=f THEN 890 
8 IF ABS(fi-ff)<>4 THEN GOTO 1110 

860 f m-fi +2$SGN (f f-f i ) 
870 cm-¢i 
BBO SOTO 920 
890 IF ABS(i-cf)<>4 THEN 1110 
900 =m =i+2$SGN(cf-i) 
910 fm=fi 
920 FOR i-m$16 TO (m+I)$16 
930 FOR -399-(m161 TO 399-((fm+I 
)tlb) STEP -I 
940 IF TEST(i,j)-3 TN 980 
950 NEXT j 
9a0 NEXT i 
970 GOTO 1110 
980 m m+1 
990 REM  realiza=i=n del m=vimient 
1000 PRINT GHR$(22)+GHR$(11; 
i010 ==i TEST((=i-I)tI6399-(fi$16) 
1020 PEN ==i:LOATE ii+I:PRINT a 
$ 
1030 PEN 3:LOCATE =gf*I:PRINT 
In40 c=m TEST((cm-1)t16:399-(mt1) 
) 
1050 PEN m:LOCATE mm+I:PRINT a 
$ 
1060 FOR i 0 TO 2:SOUND IINT(RNDtl 
00+50)  3:NXT 
1070 p p-1 
t080 IF p>1 THEN PEN :GOTO 640 
1090 GOTO 117 
1100 REM t m=vimientg errgneg 
1110 FOR i 3 TO 21:LOATE 37i:PRIN 
T MID$(er$i-2,1):NEXT 
1120 FOR ret=O TO 1999:NEXT rat 
1130 F i=3 TO 21:LOCATE 37i:PRIN 
T " ":NEXT 
t10 GLS #I 
1150 LOCATE 122:PRINT STRING$(403 
2} :f$="":GOTO 640 
1160 REM  resultadg de la patida 
1170 PEN 3:if=TIME:INK OIO:MODE 1: 
FOR I-1 TO 100 STEP 3:SOUND 1,1,I0: 
NEXT:LOATE 511:PRINT HRS(175);"F 
ELICIDAS LO HAS 
1200 
1180 INK OIO:MODE I:LOCATE 11I0:P 
RINT "EMPLEASTE* m" UBADAS" 
1190 LOATE 1212:PRINT 
"PIEZAS" 
1200 tiemp-(tf-ti)/300:minutgs INT 
(iiem#g/aO):seggnds tiemp= MD 0: 
i iemp=$="TIEMPO =->"+STRS (mi nut=s) + 
" MINUTOS"+STR$(segundgs)+" SEN 
1210 LOCATE INT(21-(LEN(tiemp=$) 
)14:PRINT tiempg$:IF 
D minut=s=1 THEN LOCATE 24 t:PRINT 

" ":LOCATE 35,14:PRINT " ":GOT[} 12 
50 
1220 IF segundes I AND m:nggs/.10 T 
HEN LOCATE INT(21-(LEN(tiemp=$)/2)) 
÷0 14". PRINT .... 
1230 IF segunds=i AND minutgs>9 
EN LOCATE INT(21-(LEN(tiem$)/211+ 
 1+ADS (mi nut s99 )  14 : PRINT " 
124 IF minutgs=1 THEN LgTE INT(2 
I-(LEN(tiemp$)/2))+Ig14:PRINT 
1250 LOCATE 2 16:PRINT CHR$(174);"Q 
UIERES VER LA LISTA DE MOVIMIENTOS? 
t260 yn$ UPPER$(INKEY$):IF yn$="" T 
HEN GOTO 1260 
1270 IF yn$-"N" THEN GOTO 1330 
1280 IF yn$<"S" THEN GOTO 1260 
1290 M0DE I:FOR xx=O TO m-l:IF 
 THEN LOCATE 8x+:PRINT 
x,I):ELSE IF x=I THN PRINT 
3) ; :LOCATE 27, xx-12: PRINT 
O) ;coos (xx,O) ; "-"; fff$(x, I ) ;coos 
,I 
1300 IF >I THEN LOCATE 
PRINT fff$):,O);c$(,O);"-";fff 
1310 NEXT 
I20 LOCATE 1224:PRINT "PSA UNA 
TECLA":WHILE INKEY$ "":WEND 
I0 CLS:LOCATE 14:PRINT GHR$(174 
);"gUIERES INTENTARLO DE NUEVD?" 
1340 =n$=I NKEY$ 
1350 an$ UPPER$(an$) 
1360 IF an$ "S" THEN RUN 
I70 IF an$"N" THEN S0UND I,]NT(R 
NDt100+I50)5:GOTO 1340 
1380 MODE I:CLS:END 
1390 REM t subrutina de toma de dat 
gs del mgvimientg (ila y clumna) 
1400 PRINT CHR$(22)+GHR$(O) 
1410 LOCATE #tI,I:PRINT#I" 
FILA ";: 
1420 $-INKEY$:IF $ "" THEN 1420 
430 IF $>CHR$(21 THEN PRINT 
$:LSE GOTO 141 
1440 FOR ret= TO 300:NEXT ret 
1450 IF $-"?" THEN t TIME:GOTO 11 
80 
1460 $ UPPER$(f$) 
1470 IF ASC($)<65 OR ASC($)>71 H 
EN CLS #1:SOUND I5320:80T0 1410 
1480 LOCATE 21+In=(ABS(]ag=111,22: 
PRINT f$ 
1490 LOCATE #1II:PRINT#I " 
COLUMNA " 
1500 $=INKEY$:IF =$="" THEN 15n0 
1510 IF c$>CHR$(321 THEN PRINT #I 
$:ELSE GOTO 1490 
1520 FOR ret-1 TO 3OO:XT 
1530 IF c$="9" THEN t=TIME:GQTQ 11 
1535 IF c$-"." OR ¢$ "+" OR ¢$="&" 
THEN CLS #I:SOUND I4020:80T0 1490 
1540 ¢ VAL(¢$) 
1550 IF <I OR c>7 THEN LS #1:SOUN 
D I4020:80T0 1490 
1560 LOCATE 2+IOtABS(fIg)22:PRIN 
T c$ 
1570 ==c$(mlag) ¢S:$(mlag)= 
$ 
1580 ELS #I 
1590 IF Flag-1 THEN LOCATE I22:PRI 
NT SPACES (39) 
I 00 RETURN 
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CINCO N LINEA 
(Juego para dos) 

Soturnino Coc/Sn Rodffguez 

Este 6ltimo juego, del tipo de aqullos que los ingleses, 
con su amor a las palabras sencillas, Ilaman 
¢braintwist games, es el postre de AMSTRAD SEMANAL 
ha preparado para el especial Serie Oro de verano. Es 
como las cuatro en raya, s61o que m6s dif(cil, y est6 
pensado, en un alarde de gremialismo, para que dos 
jugadores se rompan la cabeza uno contra otro sin la 
menor intervenci6n del Amstrad, que acta como 
6rbitro impasible del fraticida encuentro. 

1/uego consiste en 
colocar cinco fichas de/mismo color en 
linea recta, bien de forma horizontal, 
vertical o diagonal. 
Se juega con dos colores: blanco y 
rojo, de forma alternativa por coda ju- 
gador. 
El color blanco siempre juega pri- 
mero. 

LISTA DE SUBRUTINA$ 

30-390 Dibujo pantalla 
400-480 Pregunta por punto 
elegido 
490-540 Localiza, dibuja y memo- 
riza punto elegido 
$50-1390 Comprobaciones cle 
juego 
1400-1410 Cambia de jugador 
1420-1510 Final de partida 
1520-1610 Instrucciones iniciales 

L  STA DE VARIABLES 

lug Jugador (1 6 2) 
Ioca 0 Localizaci6n de ficha en 
tablero 
a, b Puntos de Iocalizaci6n 
de tirada 
x, y Puntos de Iocalizaci6n 
en pantalla 

Cada /ugador puede elegir cual- 
quier punto del tablero, siempre y 
cuando no haya sido elegida con an- 
telaci6n. 

20 ' 1984:SATURNINQ CAEHDN RQDRIGU 
30 GDTO 1530 
40 REM <<< PANTALLA 2>> 
50 MODE O:DQRDER O:INK Q, 13:|NK 1,2 
4:INK 24:NK 3,0:INK 4,2:INK 5,18 
:INK 
40 PAPER #I,Q:PAPER 
70 CLEAR 
0 jug 1 
90 DIM Ia(24,24) 
10O NINQ 1,1,20I,22 
110 WINDOW #2,1,20,2325 
120 SYMBOL AFTER 139 
130 FOR n=1 TQ 17 
140 READ ,d,e,f,,h,i,j,k 
150 SYMBDL ¢d,e,,g,h,i,,k 
160 NEXT n 
170 DATA 239,0,40,124,124,124,124,4 
0,0 
180 DATA 240,8,24,8,8,8,B,B,O241,2 
43448,1632,40,0,242,54,4,4,244 
,4,54,0,243,8,24,40,72,124,8,8,0 
190 DATA 244,40,32,32,24,445,0,2 
452B,32,32,543434240246,40,4, 
8,28,8,8,8,0,247,24,34,34,24,34,34, 
24,0 
2DO DATA 248,24,34,3b,2B,4,4,24,0,2 
49,38,105,41,41,41,41,3B,0,250341 
02,34,34,34,]4340,251t38I05,33,3 
4,34,40,47,0 
210 DATA 252,44,97,33,3E,33,3,44,0 
,253,34,102,42,42,4734,340,25447 
,I04,0,44,33,33,44,0255,35,100,40 
,44,41,I,3B,0 
220 LOCATE #I,4,1:PEN #I,6:PRINT 
,"CIN¢D EN LINEA" 
230 FOR n I TO 
240 LOCATE #I,2+n,3:PEN #1,4"PRINT 
#I,EHR$(239+n); 
250 NEXT n 
20 LOCATE #1,2,4:PEN II,3:PRINT #I 
,STRING$(18,143) 
270 FOR n I TQ 
280 LOCATE #1I4+n:PEN #I,4:PRINT 
290 LOCATE #I,2,4+n:PEN #I,3:PRINT 
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#I,CHR$(1431 
300 LOCATE #I,19,4+n:PEN #I,3:PRINT 
#I, EHR$(143) 
310 LOCATE #I,20,4+n:PEN #1,4:PRINT 
#I, CHR$(239+n) 
320 NEXT n 
330 LOCATE #I,2,21:PEN #1,3:PRINT # 
I,STRINO$(18,143) 
340 FOR n I TO 16 
350 LOCATE #l,2÷n,22:PEN #1,4:PRINT 
#I,CHR$(239+nI| 
360 NEXT n 
370 FOR n I TO 16 
380 LOCATE #1,3,4+n:PEN #I,5:PRINT 
#I,STRING$(16,1441 
390 NEXT n 
00 REM <<< PREGUNTA 
410 LOCATE #2,5,2:PEN 
#2,"HORIZONTAL";a 
420 IF a<I OR a>16 THEN LS #2:GOTO 
410 
430 a-a+4:CLS #2 
440 SOUND 
450 LOCATE #2,5,2:PEN #2, jug:INPUT 
#2,"VERTICAL";b 
460 IF b<1 OR b>16 THEN LS #2:GOTO 
450 
470 b=b÷4:CLS #2 
480 IF l=¢a(a,b)<>O THEN LOCATE 
4,2:PEN #2,3:PRINT #2,PUNTO OCUPAD 
O":SOUND 1,500,80,4,0,O,3:FOR n=1T 
0 500:NEXT:CLS #2:GOTO 410 
490 REM <<< LOCALIZACION 
500 x=a-2 
510 
520 LOCATE #I,x,y:PEN #I,ju:PRINT 
#1,CHR$(2391 
530 SOUND 1,100,20,6 
540 lo=a(a,b) ju 
550 REM <<< COMPROBACIONES >>> 
560 ' h=rizntale 
570 FOR n=O TO 4 
580 IF l=¢a(a+nb)<>u THEN 610 
590 NEXT n 
600 SOTO 1420 
610 FOR n-O TO 4 
620 IF lga(a-1÷n,b)<>ju THEN 650 
630 NEXT 
650 FOR n 0 TO 4 
660 IF Ig=a(a-2÷n,b)>jug THEN 690 
670 NEXT 
680 GOTO 1420 
690 FOR n 0 TO 4 
700 IF l=a(=-3+n,b)<>ju THEN 730 
710 NEXT 
720 GOTO 1420 
30 FOR n=O TO 4 
740 IF I==a(a-4+n,b)<>j=8 THEN 780 
750 NEXT 
760 GOTO 1420 
770 ' 
780 FOR n=O TO 4 
790 IF loa(a,b+n1<>Ju THEN 820 
800 NEXT 
810 GOTO 1420 
820 FOR n 0 TO 4 
80 IF Iga(a,b-l+n)<>ju8 THEN 860 
840 NEXT 
8.50 BOTO 1420 
860 FOR n=O TO 4 
870 IF l==a(a,b-2+n)<>jug THEN 900 
880 NEXT 
890 GOTO 1420 
900 FOR n 0 T8 4 
910 IF l==a(a,b-3+n1<>jug THEN 940 
920 NEXT 
930 OOTO 1420 
940 FOR n=O TO 4 
950 IF l==a(a,b-4+n)K>ju9 THEN 990 
960 NEXT 
970 GOTO 1420 
980 ' diaggnales 
990 FOR n 0 TO 4 
1000 IF loca(a+n,b-n)<jug THEN 103 
0 
1010 NEXT 
1020 ODTO 1420 
1030 FOR n=O TO 4 
1040 IF l==a(a-l+n,b+1-n)<>ju8 THEN 
1070 

1050 NEXT 
I00 GOTO 1420 
1070 FOR n=O TO 4 
1080 IF Ig¢a(a-2+n,b+2-n)<>jMg THEN 
1110 
1090 NEXT 
1100 OOTO 1420 
1110 FOR n=O TO 4 
1120 IF l=a(a-3+n,b+3-n)<>ug THEN 
1150 
1130 NEXT 
1140 GOTO 1420 
1150 FOR n-O TO 4 
1160 IF Ig¢a(a-4+n,b+4-n1<ju9 THEN 
1200 
1170 NEXT 
1180 GOTO 1420 
1190 ' diag=nales 
1200 FOR n 0 TO 4 
1210 IF l==a(a-n,Q-n)<>ug THEN 124 
0 
1220 NEXT 
1230 GOTO 1420 
1240 FOR n 0 TO 4 
1250 IF lg=a(a+1-n,b+1-n)<>ju THEN 
1280 
1260 NEXT 
1270 GOTO 1420 
1280 FOR n=O TO 4 
1290 IF lga(a+2-n,b+2-n)<>9 THEN 
1320 
1300 NEXT 
1310 GOTO 1420 
I20 FOR n 0 TO 4 
1330 IF l==a(a+3-n,b+3-n)<>ju THEN 
1360 
1340 NEXT 
1350 GOTO 1420 
1360 FOR n-O TO 4 
1370 IF lga(a+4-n,b+4-n)<jug THEN 
1400 
1380 NEXT 
1400 IF u I THEN jug 2:GOTO 410 
1410 IF ju 2 THEN jug I:GOTO 410 
t420 REM <(¢ FINAL DE PARTIDA >>> 
1430 CLS #2 
1440 LOCATE #2,3,1:PEN #2,3:PRINT # 
2,"FINAL DE PARTIDA" 
1450 IF jug I THEN LOCATE 
N #2, jug:PRINT #2,"GANAN LAS DLANCA 
S": GOTO 147 
1460 IF ug 2 THEN LOCATE 
N #2, jug:PRINT #2,"GANAN LAS ROAS" 
1470 LOCATE #2,2,3:PEN #2,3:PRINT # 
2,"OTRA PARTIDA(S/N)?" 
1480 a$ INKEY$ 
1490 IF aS "5" OR aS "s" THEN 50 
1500 IF a$="N" OR a$-"n" THEN MODE 
I:END 
1510 IF a$<>"S" OR a$<>"s" OR aS<>" 
N" OR a$<"n" THEN 1480 
1520 REM << INSTRUECIONES 
1530 MODE I:INK 0,13:INK 1,0 
1540 L0CATE 13,3:PRINT "CINCO EN LI 
NEA" 
155o LOCATE 12,5:PRINT "(ueg para 
dos)" 
150 LOATE 1,9:PRINT " 1 El 
horizontal, vertical = diasonal." 
1570 LOCATE I14:PRINT " 2 5e 
rgjg, de =rma alternativa." 
1580 LOCATE 118:PRIB]T " 3 El 
r blan simpre juega pr 
1590 LOCATE 5,2:PRINT "PRESIONA 
SPACIO> PARA QUGAR" 
1600 IF INKEY(471<>O THEN 1600 
1610 GOTO 50 

ANA 
100.000 PESETAS 
CON MICROHOBB Y 

SEMANAL 

Porque pretendemos que AMSTRAD 
SEMANAL sea tambin vuestra revista, 
hemos abierto una secci6n en la que se 
publicar6n los mejores programas origi- 
nales recibidos en nuestra redacci6n Vo- 
sotros sereis los encargodos de realizar 
estas p(ginas, en las que podrgis apor- 
tar ideas y programas interesantes pa 
ra otros lectores. 
Las condiciones son sencillas: 
-- Los progromas se enviardm a AMS- 
TRAD SEMANAL en una cinta de casset- 
te, sin protecci6n en el software, de for- 
ma que sea posible obtener un listado de 
los mismos. 
-- Cada programa debe ir acampa- 
ado de un texi'o explicativo en el cual 
se incluyan: 
-- Descripcidn general del pragrama. 
-- Tabla de subrutinas y variables uti. 
#zadas, explicando claarnent la 
funcidn de cada una de elias. 
-- Instrucciones de maneja. 
-- Todos estos datos deber6n ir escr- 
tos a m(quina o con letra clara para ma- 
yor comprensi6n del progroma. 
-- No se admitir6n programas que 
contengan caracteres de control, debt 
do a que no son correctomente inter pre 
lados par las impresoras. 
-- En una sola cinta puede mtroduor- 
se m6s de un prog, ama. 
-- Una vez publicado, AMSTRAO SE- 
MANAL abonar6 al autor del programa 
de 15.000 a 100.000 pesetas, en con- 
ceplo de derechos de aurar. 
-- Los autores de los programas selec- 
cionados para su publicaci6n, reobr6n 
una comunicaci6n escrita de ella en un 
plaza no superior a dos meses a parlir 
de la fecha en que su prograrna Ilegue 
a nuestra redacci6n. 
-- AIVISTRAD SEMANAL se eserva el 
derecho de publicoci6n o no del progra- 
IT10. 
-- Todos los programas recibidos que- 
dar(n en poder de AMSTRAD SEMA- 
NAL. 
-- Los programas sospechosos de pla- 
gio seran eliminados inmediatamente. 

|ENVI, NOS 
TU PROGR' M' .m 
Ad/untanda los siguienes datas: 
Nombre y apellidos,. 
direcci6n y telfono. 
Indicando claramente en el sabre: 

AMSTRAD SE  ANAI 
a HOBBY PRESS, S. A. La Granja, 39 
Pol. Ind. Alcobendas (Madrid) 



MUSICA DE FONDO 

tiliza la capaci- 
dad de interrupciones del Amstrad 
para acceder cada cierto tiempo a 
una subrutina que interpreta la me- 
Iodla. El tiempo entre interrupciones 
se puede variar de acuerdo con la 
melodla elegida de forma que no se 
produzcan lagunas en la cola de so- 
nidos, procurando que sea el mayor 
posible. 
Aunque se podrian haber leido las 
datas directamente desde la subru- 
tina de sonido, se ha preferido so- 
portar las notas en una matriz para 
evitar problemas si se usan m6s da- 
tos en el programa. 
La descripci6n de rutina es la si- 
guiente: 
30 Iniciaci6n. 
40 Carga de la matriz de no- 
tas. 

6O 
9O 

100 

Instrucciones en la pantalla. 
Comienzo de la melodia e 
inicio de las interrupciones. 
Programa principal; en es- 
te caso es un contador. 

Ig " *** Musca de rondo 
20 ' ** pot J.N.Rodrlguez 
38 OIM notas<25,2):n 1:m I:|=I:REST 
ORE 5g 
48 FOR -I TO 25:REAO notas<,1>no 
tas(,2):NEXT 
58 DATA llg3g,lg6,1g,ll?,2g,134,2g 
,14221134,2gllg,4g,159,28,142,2g 
,134,48142,2g,134,28,]19,48,119,3g 
Ig6Ig,llg2g,134,20142,2,134,2g 
,g,Sg 
68 MODE I:LOCATE 2,2:PRINT Nentra 
s esta contando toca la melodia' 
7g LOC.ATE 2,23:PRINT Pulsa una tec 
la para parar la musica 
gO PRINT ' Pulsa otra vez para volv 
@P a la music&  
90 GOSU8 120:EVERY 48,1 GOSU 
I WHILE INKEY$=" :LOCATE 17,12:PR 
INT USING '##### ;m:m m*I:WEND 
11 a REhbIN(1):I -i:IF 
ELSE 180 
128 SOLO Ijnotas(n,1)notas(n,2),7 
138 n-n÷l:IF n 2& THEN n-1 
148 IF S0(I)>128 THEN 
|58 RETURN 

l 

i 

110 Fin de la mOsica y opciones 
de operador. 
120 Rutina de sonido (subpro- 
grama). 
140 Cuando estc Ilena la cola de 
sonidos regresa al progra- 
ma. 

LAS ASIGNATURAS PENDIENTES oi 

• SOCIALES • NATURALES • MATEMATICAS • LENGUAJE • 
DE: 5' 6' 7my 8 m EGB 
Programa para ejercicios de ortografia .E..D.O..R.T.O. 
Programa para ejercicios de atencibn y comprensibn .E.D.A.C_L.E. 
Programa pare ejercitar el instrumento lector .E.J_E_I_L.E. 
ponible en MSX y AMSTRAD.. |800 ptas Cassette  2750 Disco 

((PRECIO ESPECIAL ) CURSO COMPLETO EGB ..... 3500 ptas. 
I 
PEDIDOS :GOSUNE CUARTELES,43-1 °- 2900 2- MALAGA- TEL.311877 I 
I 
...... regalo de un reloj por cada cassette o disco 



tende resolver, en la medida de Io 
posible, todas los posibles dudas 
qua <<atormenten a todas las 
personas interesadas en el mundo 
del AMSTRAD, sean o no poseedo- 
res de uno y, si Io son, se encuen- 
tren en cualquier nivel de destreza 
en su manejo. 
Semanalmente, aparecen en estas 
pginas las consultas de la mayor 
cantidad de usuarios posible; ello re- 
dundar en un major servicio yen 
un contacto ms estrecho entre to- 
dos nosotros a troves de la revista. 
SIN DUDA ALGUNA est6 
abierta a todos. 

LA INSTRUCCION 
SUB EN CODIGO 
MAQUINA 
Mi problema es el siguiente: me 
gustar[a saer si existe la instrucci6n 
de c6digo m6quina SUB rr, rr" (por 
ejemplo SUB HL, BC), yen caso afir- 
mativo qua me dijeran sus OPCO- 
DES. 
P.D.: Debido a qua me urge cono- 
cer la respu'esta po necesitarla pa- 
ra un programa sobre el que estoy 
trabajando, le adjvnto un sobre 
franqueado para qua me la envien, 
confiando --n que esto no les supon- 
dr mucha m,olestia. 
Fernando A varez Serrano 

La instrucci6n que nos comenta en 
su carta no es posible ejecutarla en 
el micorprocesador Z80. Aunque 
existe una similar que es la siguien- 
te: 
$BC HL, DE 
pero debemos decir, qua su funcio- 
namiento no es igua', al de la instruc- 
ci6n SUB que Vd. nos propone, ya 
que en este caso se efect0a una res- 
ta con Carry, por Io que antes de 

efectuar dicha operaci6n, debemos 
asegurarnos de que el flag Carry as- 
t6 a cero. Una forma de conseguirlo 
puede ser la siguiente: 
SCF 
CCF 

MAPA DE MEMORIA 
DE PANTALLA 
DEL 6128 
Me dirijo a Vds., con el fin de so/i- 
citarles quieran informarme sobre Io 
siguiente: 
1. o Mapa de memoria de panta- 
Ila en modo 2 del CPC 6128, como 
as( coordenadas de destino en c6di- 
go mSquina, en el mismo modo (2) 
del 6128. 
2. o Si -.s posible conseguir y don- 
de las publicaciones "'A GUIDE TO 
CP/M PLUS", SOFT971 y "'A GUIDE 
TO CP/M", SOFT159, como as( so- 
bre el FIRM WA RE del 6128 y SISTE- 
MA OPERATIVO, si Vds. me dicen 
clue me informe en AMSTRAD ESPA- 
NA, no vale, ya qua omiten dar esa 
informaci6n t?ese a mi consulta. 
3. o Otorgar un DIEZ DE CLASIFI- 
CACION por vuestra publicaci6n, 
est5 muy completa e interesante, sin 
Vds., nosotros los usuarios estar(a- 
mos perdidos, vuestra labor es inme- 
jorable. 
4. o $61o falta, a mi criterio, un po- 
co mds extensi6n en el tema del c6- 
digo mSquina, como as[ las modifi- 
caciones qua seen necesarias pare 
cada modelo 464, 664 y 6128. 
Hugo R. Cruz Videla 
AI referirse al mapa de memoria 
de pantalla, suponemos qua querr6 
decir las direcciones de inicio de fin 
de pantalla y curies son los saltos de 
linea a linea y de carcter a carc- 
ter. Asi pues, a continuaci6n le indi- 
camos dichos datos: 
INICIO DE PANTALLA: #CO00 
FIN DE PANTALLA: #FFFF 
SALTO DE LINEA: 2048 BYTES 
SALT© DE CARACTER: 80 BYTES 
teniendo en cuenta que la direcci6n 
inicial de pantalla es alterable debi- 
do a los scrolls que se producen. De- 
bemos decirle tambin que dichas di- 
recciones son las mismas pare cual- 
quier modo de pantalla. 
En cuanto a la forma de conseguir 
las publicaciones, le aconsejamos se 
dirija a una tienda de informtica o 
una libreria especializada en dichos 
temas. 

EL COMANDO 
"'CALL'" 
Despus de felicitaros por vuestra 
completa revista (y sobre todo al 
apartado de Lenguaje M6quina- 
Ensamblador), os desear(a realizar 
una pregunta qua nunca nadie me 
ha sabido responder. 
El problema est6 en el comando 
"CALL". La funciSn de este coman- 
do la tango bastante clara (semejan- 
te a la de GOSUB en Basic), pero me 
asalt6 la duda al observar en un pro- 
grama qua el comando "CALL'" te- 
n[a m6s de un pardmetro utilizable 
(ademSs de la direcci6n de memo- 
ria). 
Les agradecer[a qua me adarasen 
mi terrible duda. 
Ram6n Reigado Sanz 

Los comandos Basic "CALL" acep- 
tan ms de un par6metro como Vd. 
habr podido observar. Cuando se 
ejecuta un comando de este tipo, al 
entrar en el programa en mquina, 
el registro IX apunta a la direcci6n 
del 01timo par6metro del comando, 
y el registro A contiene el n0mero de 
par6metros introducidos, teniendo 
en cuenta que cada uno de los pa- 
rmetros tiene una Iongitud de dos 
bytes. Asi pues, si por ejemplo eje- 
cutamos Io siguiente: 
CALL, 10000,A,B 
el registro IX apuntar6 a la direcci6n 
del par6metro B, y el acumulador 
contendr5 el valor de 2. 

QUE ES UN MAPA 
DE MEMORIA 
Me diri/o a Vds. para qua resuel- 
van dos dudas. 
La primera: qu se especifica en 
un mapa de memoria? 
La segunda: quiero saber una o 
varias direcciones en d6nde puedo 
comprar un libro del Firmware del 
Amstrod CPC 464. 
J. . Gonz6lez 

En un mapa de memoria se espe- 
cifican las siguientes cuestiones: 
-- Zona de RAM disponible para 
el programador. 
-- Memoria de pantalla. 
-- Zona de ROM del sistema. 
-- Zona de variables del sistema. 
Respecto a tu segunda pregunta, 
te recomendamos dirigirte a cual- 
quier tienda especializada en infor- 
m6tica. 
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C/Duque de Sesto, 50. 28009 Madrid (Metro O'Donnell o Goya) 
Tel.: (91) 274 53 80 Aparcamiento gratuito en Felipe II 

I Ofertas en software: 2 programas al precio de 1 y adem6s regalo fin de curso una calculadora completamente gratis, iiAsombroso!! 
Verdad? 

BAT MA N 2.300 
ROCK'N LUCHA 2.300 
YIER AR KUNG FU 2.300 
THE WAY OF THE TIGER 2.300 
WEST BANK 2,100 
CAMELOT WARRIORS 2.300 
RAMBO 2.300 
WORLD CUP (DISCO) 3.300 
MILLION II (DISCO) 3.300 

tas. KUNG-FU MASTER 2.300 
)tas. SABOTEUR 2.3OO 
tas. PING PONG 2.300 
)tos. MILLION II OO00 
tas. OLE TORO 2.300 
tas. TURBO ESPRIT 2.1OO 
tas. SABRE WULF i.650 
tas. BATALLA DE LOS PLANETAS 2.100 
:tas. SABOTEUR-COMBAT LINX DISCO 3.300 

RAMBO-MATCH DAY (DISCO) 3.300 ptas. 

SOFTWARE DE REGALO (OFERTA 2xii l 
DECATHLON BEACH HEAD SOUTHERN BELLE 
DRAGONTORC 

LAPIZ OPTICO 
3.295 PTAS. 
CASSETTE ESPECIAL ORDENADOR 
5.295 PTAS. 

SINTETIZADOR DE VOZ EN 
CASTELLANO 
7.650 PTAS. 
AMPLIACION DE MEMORIA ANTA 64 K.3 
12.500 PTAS. 

L2 IMPRESORAS i 
0% DE DESCUENTO SOBRE P.V.P. 

TAPA DE METACRILATO 464 
CABLE CENTRONICS 
CABLE SEGUNDA UNIDAD D. 
CABLE SEPARADORES 6128 
IN1,ERFACE RS232 
CINTA VIRGEN C15 

895 CABLE AUDIO 
3.175 CABLE ADAPTADOR 2 JOYSTICK 
1.790 CABLE SEPARADORES 464 
1.975 CABLE SEPARADOR 8256 
9.265 CABLE RS232 
69 DISKETI'ES 3" 

795 
2.390 
1.390 
2.900 
2.500 
990 

PRECIOS EXCEPCIONALES PARA TU AMSTRAD 
CPC-464, CPC-6128, PCW-8256 

iiLLEGARON LAS REBAJAS DE VERANO A MICRO 

QUICK SHOT I OFERTAS EN JOYSTICKS 1.395 
QUICK SHOT II 1.695 
QUICK SHOT V 1.695 

PEDIDOS CONTRA REEMBOLSO SIN NINGUN GASTO DE ENVIO TEL. (91) 274 53 80 
O ESCRIBIENDO A: MICRO-i. C! DUQUE DE SESTO, 50. 28009 MADRID. 

Tiendas y distribuiciores grcndes descuentos. 
Dirigirse a Diproimsa. CI Galatea, 25. Tel. (91) 742 20 19 6 742 79 68 



CASUALIDADES 
Y DEFINIClONES 

Porece que en el universo de los ndmeros todo sucede dentro 
de un orden ISgico, pero en Io vido hay mu/titud de hechos 
que ocurren pot ozor. Vomos o intentar introduclr un poco de 
cosuolidod en nuestros progromos medionte /o func/n 
RND que nos vo o generor una serie de ndmeros ol ozor. A 
esto rcosuolidod /o Ilomaremos <ndmeros aleotorios. 

18 REN PROGRAIIA I 
20 CLS 
30 INPUT "NLIER0 C)E TIRAOAS ",TIRAID 
AS 
48 PRINT 
58 FOR CONTADOR=I TO TIRADAS 
68 ALEATORI 0- INT (RND*6) 
70 DADO=ALEATOR I O+ I 
88 PRINT DAD0 
90 NEXT CONTADOR 

enemos que ha- 
cerles una confesi6n: el ordenador 
nunca producir6 nOmeros al azar, si- 
no una secuencia ciclica que hace 
que parezcan aleatorios. Es casi im- 
posible conseguir una funci6n que 
cree nOmeros totalmente casua- 
les, pero con RND tenemos una ga- 
ma de posibilidades Io suficientemen- 
te amplias como para dar esa impre- 
si6n. 
Si escribimos: 
PRINT RND 
el ordenador visualizar6 en la pan- 
talla cualquier nOmero aleatorio 
comprendido entre 0 y 1. Si repeti- 
mos esta instrucci6n varias veces los 
resultados obtenidos son diferentes 
pero nunca nos dar6 el valor m6xi- 
mo: el 1. Parece que RND va a te- 
her entonces muchas limitaciones 
porque, qu6 habr6 que hacer para 
simular las tiradas de un dado, por 
ejemplo, que siempre ser6n nOmeros 
enteros y comprendidos entre 1 y 6? 
La soluci6n es sencilla: combinar el 
trabajo de RND con el de la funci6n 
INT que recortar6 todos los valores 
obtenidos para dejarles en su parte 
entera. Vamos a hacerlo efectivo con 
el programa 1. 

Progromo uno 

Si multiplicamos el valor generado 
con RND por 6 obtendrenos con la 
funci6n INT valores enteros com- 
prendidos entre 0 y 5. Para alcanzar 

los valores del dado, qu6 hacemos? 
Sencillamente sumarle 1 en la linea 
70. 
Sin embargo, el programa no es 
perfecto, tiene un error garrafab 
que descubrir6 si Io ejecuta repetida- 
menle despu6s de resetear el orde- 
nador (no olvide grabar el progra- 
ma primero). Fn efecto, siempre 
aparece la misma serie, pero el Amso 
trad Io tiene previsto y nos sacar6 
del apuro con la funci6n RANDOMI- 
ZE, mediante la que informamos al 
micro de la posici6n de la secuencia 
desde la que queremos empezar. 
Pru6belo con las instrucciones: 
RANDOMIZE (1) 
PRINT RND 
y variando la expresi6n entre parn- 
tesis cambiar6 tambi6n el nOmero 
aleatorio obtenido. Intente no poner 
ning0n n0mero, es decir no darle la 
posici6n inicial. El ordenador le da- 
rc un mensaje: 
Random number seed? 
algo as/ como: ndrnero aleatorio 
preseleccionado?, al que tendremos 
que contestar con el indice elegido. 
La funci6n RND tambi6n admite 
tres tipos de par6metros: 
-- NOmeros positivos. Devuelve el 
valor del siguiente ngmero aleatorio 
en la secuencia ciclica. 
-- 0. Nos devuelve el nOmero an- 
terior. 
-- Ngmeros negalivos. Admire de 
--1 a--16. Nosentrega el valorco- 
rrespondiente y hace que la secuen- 
cia empiece de nuevo. 

Le proponemos que insista en pro- 
bar al m6ximo estas dos palabras 
claves y sus diferentes par6metros 
para conseguir en cualquier momen- 
to la secuencia de nOmeros aleato- 
rios deseada. 
Quiz6 se haya encontrado alguna 
vez con la necesidad de utilizar una 
expresi6n num6rica complicada pa- 
ra obtener un determinado valor que 
asignaremos a una variable. Si rea- 
lizamos los c61culos s61o una vez, no 
hay ninggn problema: los hacemos 
y se acab6. 
Pero a Io mejor en un programa le 
ha tocado repetir el trabajo muchas 
veces con distintos par6metros. El 
Amstrad ha previsto ahorrarnos ta- 
.les repeticiones con la'funci6n DEF 
FN. 
Todo Io que debemos hacer es 
crear una funci6n con dicha instruc- 
ci6n seguida de un nombre y su de- 
finici6n real y despu6s Ilamarla des- 
de cualquier parte del programa, ca- 
da vez que la necesitemos, con FN 
y el nombre definido. 
Por ejemplo, en la linea 30 del pro- 
grama 2 hemos creado la funci6n 
con el nombre Pit6goras) yen las 
variables entre par6ntesis le'pasare- 
mos los valores de los catetos, que 
obtendremos en las lineas 40 a 70, 
para que dicha funci6n los utilice co- 
mo par6metros. 

Programa dos 

Calculamos e[ valor de la hipote- 
nusa en la linea 80 (nos Io devuelve 
la funci6n dit6garas,) y Io almace- 
namos en la ariable hipotenusa. 
Con este m6todo de trabajo, apar- 
te de ahorrarnos una serie de ope- 
raciones, conseguimos claridad. 

18 REH PROGRAHA 
20 CLS 
38 DEF FNPITAGORAS(X,Y) SR(X^2+Y2 
) 
40 INPUT °CATET0 hlAYOR: °,CATETOI 
50 IF CATET01(-8 THEN GOT0 48 
68 INPUT "CATET0 MENOR: ",CATET02 
78 IF CATET02(g THEN GOT0 68 
88 HIPOTENUSA--FNPITAGORAS(CATETOI,C 
ATET02) 
98 PRINT 
18B PRI;r °HIPOTENU °;HIPOTENU 
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I I 
latman, omb Jack, Commando... , 
toc]os tus hroes prefer]dos iuntos en este numero, 
para ciiverte a tope. 

|/ 

/UN SUPERHEROE , ,- 

DE PEUCULA 



AMSTRAD 

COMBAT LINX 
GREMLINS 
DUMMY RUM 
DRAGONTORC 
MATCH DAY 
BASEBALL 
FIGHTING WARRIOR 
MAP GAME 
YIE AR KUNG-FU 
HYPERSPORTS 
ZORRO 
SUPERTEST 
PING-PONG 

pa. a uno y Ilevate cuatro 

COMMODORE MSX BRUCE LEE COSMIC WARTOAD 
BASEBALL DISC WARRIOR RAID OVER MOSCOW N.O.M.A.D. 
DROPZONE JET SET WILLY II BASEBALL BATTLE OF PLANETS 
BEACH HEAD SHOW JUMPER DRAGONTORC DYNAMITE DAN 
HYPERSPORTS ASTROCLONE LEYENDA AMAZONAS 
SUPER ZAXXON GYROSCOPE BRIAN BLOODAXE 
FIGHTING WARRIOR SPECTRUM MAP GAME PSYTRAXX 
SPY HUNTER ZAXXON ZORRO 
TAPPER FRANKIE 
BC-II BLUE MAX 
BOUNTY BOB 
o o,,o . ... y mll tltulos ms 

ptas. 
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